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Prefácio 


Um livro como cstc só se tornou possível graças á existência do Microsoft 
Extendcd Basic ou MSX, 

Em virtude da com paíibil idade entre os micros MSX» o dono dc qual- 
quer micro dessa família poderá carregar os programas deste livro nn seu 
microcomputador e entreter-se com dc*. 

Os jogos para microcomputadores não são apenas divertidos, mas 
também educativos. Em primeiro lugar, o desejo de ver ü jogo "pronto ' 1 
e funcionando desperta o interesse pelo computador. Em seguida, ao en- 
trar com o programa, o usuário se familiariza com a sintaxe da lingua- 
gem cm que o programa foi escrito. Além disso, como os programas 
raramente funcionam da primeira vcz t devido a erros de digitação, torna-se 
necessário acompanhar a lógica do programa e assim descobrir como de 
funciona. Os dois últimos estágios na evolução de um programador con- 
sistem em Hindi ficar programas já existentes C final mente poder afirmar: 
"Eu sou capaz dc fazer um programa melhor do que este!". Espero sin- 
ceramente que, depois dc usar este livro, você seja capaz dc desenvolver 
programas em BASIC MSX ainda melhores do que os apresentados aqui. 

Entretanto, o objetivo principal desta obra nao é ensinar ou expli- 
car A intenção foi produzir bons programas, que custariam dez vezes 
o preço do livro se fossem vendidos separadamente em fita cassete. Este 
è um livro de jogos c trabalhamos arduamente para incluir jogos de vã- 
rios tipos, que interessassem a todos os leitores. 

Infelizmente. embora o BASIC MSX seja uma linguagem rápida e 
que dispõe de comandos muito convenientes para programar jugos, o BA- 
SIC ás vezes necessita de um pouquinho dc ajuda. Por isso, incluímos 
pequenas rotinas em linguagem de máquina em alguns programas, Isto 
não deve ser motivo de preocupação, já que as rotinas são digitadas co- 
mo pane da listagem. O resultado é um programa híbrido de BASIC e 
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linguagem de máquina que atende ao nosso objetivo principal, ou seja. 
oferecer ao leitor jogos agradáveis e interessara cs. 

O desenvolvimento dos programas apresentados neste livro foi um 
trabalho de equipe que exigiu um grande esforço e dedicação. Tenho a 
satisfação de registrar meus agradecimentos e apreciação a todos que tra- 
balharam comigo nesic projeto. Aqueles que participaram diretamente 
da elaboração dos programas, e cujos pseudônimos aparecem nas lista- 
gens, são “ISSl h \ ♦ , PAULG M i ,l ANDY’ ' e “BQQTSY”. 

Os ou t tos membros do grupu foram Janet e minha esposa Vai, que 
se encarregaram da preparação do original através das sucessivas revisões. 

Finalmenie, meus agradecimentos a Rluliard Miles, da editora CoJ- 
lins, que encomendou o livro e se encarregou de todas as etapas de sua 
preparação até chegar a voec — ei razão final de lodo o processo a 
pessoa a quem agradeço por comprá-lo. 


Jim Gregory 


Introdução 


Os programas anui apresentados Coram escritos espoei a! mente para esle 
livro, o que resultou cm uma série de programas que cobrem iodos os 
[ ipos de jogos Fsses jogos ilustram multas técnicas úteis de programação. 

Faia ajudar a redu7.ii Os erros de digitação* I tidas as listagens foram 
impressas com uma largura-padrão de 39 colunas. Isso quer tíi/er qme se 
você usar SflREEN 0 para carregar Os programas, cada linha hei ida coi - 
responderá exatamente a uma linha iu> livro; este è apenas um exemplo 
do esforço que fi/emos para assegurar que lodos Os programas deste li- 
vro funcionem eoi relamente. 

Depois de serem exaustiva mente i estudos, os programas foram lista- 
dos d ir eia mente a partir da memória do computador. Assim, caso um dos 
programas não funcione, o mais provável e que o leiloe lenha cometido 
um erro na hora de digitá-lo. 

Fala tido com a experiência de quem já carregou mui los programas 
a partir de listagens publicadas em livros e revistas* sei que haverá oca 
siões em que você ser ei capa/, de jurar que copiou o programa corre tu- 
mente, embora de não esieja funcionando. I eia com atenção as notas 
que sc seguem e cometerá muito menos erros de digitação, Procure seguir 
05 conselhos à risca e verá que eles lhe pouparão tempo e ir aba lho. 


Alguns conselhos úteis 

1. instale o equipamento sobre uma mesa de tamanho adequado, senté- 
se em uma cadeira confortável e procure manter as costas relas. Assegure- 
se de que a iluminação è adequada c coloque o livro em uma posição con 
ve n lente para a leitura. 
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2. Ames de começar a digitar, certifiquc-sc de que todas. o,s equípamen- 
los estão ligttdos, 

Ccrtifiquc-sc dc que dispõe de um suprimento adequado de fitas ou 
de um disquete formatado. 

4. Se as suas filas trm um trecho não-magnético na início, prepare-as para 
a gravação dos programas, fazendo girar o carretel até a parte castanha 
aparecer. 

5. Para cerii ficar-sc dc que tudo está em ordem, coloque no gravador uma 
fita CW, que será sua fita de trabalho, e execute um teste de " 'salvar e 

carregar 1 1 , digi (ando 

10 RBM "TESTE 7 
20 PRINT 'TUDO BEM" 

30 GOTO 10 


ou um programa semelhante. 

Salve o programa de teste, depois carregueo e execute-o, entrando 
com RUN no modo direto. Se o programa funcionar corretamente, náo 
torne a enrolar a fila; continue de onde da parou. Se o programa não 
funcionar, rebobine a fita e comece dc novo, verificando com atenção 
todos os passos. Vocé então poderá usar esta fita para salvar seu progra- 
ma, seja quando terminar ou quando quiser interromper a digitação para 
continuar mais tarde. 

Experimente primeiro usar a maior velocidade dc gravação do MSX 
pata verificar se cia é confiável para a combinação de computador, gra- 
vador e fita que você está uti Miando, Caso os resultados não sejam satis- 
fatórios, use d velocidade menor, 

Se estiver trabalhando com disquetes, faça um teste semelhante, sal- 
vando e tornando a carregar um programa em disquete, 

6. Quando salvar apenas uma parte dn prngrama, use um nome apro- 
priado, como ‘'VI”, "VZ 75 etc, Se preferir* use a hora e a data em que 
o programa foi salvo, como por exemplo "8:15-7/1/87”. 

Depois de salvai um programa, não se esqueça de anotar o nome do 
programa e o número do contador; assim, poderá localizá-lo rapidamen- 
te no futuro. 

7. Não deixe de salvar n programa em fita ou disquete antes de entrar 
com RUN, Ç) mundo dos micros está cheio de gente apressada que per- 
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deu muitas htiráx de trabalho porque se esqueceu de tomar esta prccau 
vão dementar. 

Lxistem várias razoes pelas quais um piogiama pode ser pcidido en- 
quanto está sendo executado. Apenas para dar alguns exemplos, pode ha- 
ver um erro de digitação tal que o interpretador execute a instrução NEW, 
ou pode ser que o programa entre em um loop para 0 qual flão haja saída 
a não ser desligar o computador. Os programas que utilizam rotinas cm 
linguagem de máquina, instruções PQKE ou instruções para o sistema ope- 
racional estão particular mente sujeitos a erros irreversíveis. 

8. Depois que o programa estiver funcionando correiamente, é recomen- 
dável guardar uma cópia de reserva em uma fita C90, juntamente com 
outros programas. A cópia principal deve ser guardada em uru a fita mais 
curta, como a 05. Guarde apenas um programa cm cada lado da fitai 
assim, ficará muito mais Fácil carregar os programas na memória do com- 
putador, Não se esqueça de rotular Iodas as fitas gravadas. 

Q objetivo de guardar uma cópia de reserva é evitar a necessidade 
de digitar novameme todo o programa caso uma das fitas sofra algum 
lipo de dano. 

Se estiver trabalhando com disquetes, tenha sempre um disquete de 
reserva com as cópias de todos tis seus programas defini lívos, 

9. Muitos usuários guardam suas Fitas sem nenhum cuidado c depois se 
admiram quando das começam a apresentar de Feito. Para assegurar uma 
longa vida útil ás sligis fitas, siga estas regras simples (quase todas cias 
também se aplicam aos disquetes): 

* Rotule da r amente todas as suas fitas. 

* Guarde as fitas nos estojos quando não estiverem sendo usadas. 

* Guarde as fitas em um lugar Fresco e seco. 

* Evite deixar as fitas nas proximidades de aparelhos capazes de gerar 
campos magnéticos, como receptores de TV, computadores, alto- 
falantes, motores, ventiladores e cspedalmeruc telefones. 

* Não deixe uma fita dentro do gravudut sem necessidade c nao deixe 
o geavador em “play' 1 a não ser que o programa o exija. 

* Depois de gravar a versão definitiva dú programa, quebre a lingücta 
de plástico do eassele para impedir que o program^ seja apagado por 
engano. Se você quiser tornar a gmvar alguma coisa na fita, bastará 
tapar o buraco tom fita adesiva. 


10. Não passe mais que três horas digitando. Faça uma pausa, d£ uma 
volta, descanse a cabeça untes de continuar! 
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Outros conselhos 


TOMEI UM 
BANHO DE 
Dlí CHUVEIRO 

I eia a frase acima cm voz alta. Talve? fique surpreso ao saber que a, maio- 
t ia das pessoas II “Tomd um banho de chuveiro", Será que o mesmo 
aconteceu com você? Na verdade, a frásc é 'Tomei um banho dc de chu- 
veiro". A palavra “de M aparece duas vezes seguidas, mas como a repeti 
ção não ê esporada, o cérebro não “vê” o segundo “de". 

Um problema muito semelhante ocorre na hora de copiar a listagem 
de um programa. Muitas vezes você digita ti que espera encontrar, em 
lugar daquilo que real mente está impresso. Outros erros muito comuns 
são entiui com a letra O cm lugar do algarismo zero (que nas listagens 
deste livro aparece como 0) e com a letra S no lugar do cifrão ($)< 

Basta um momento de distração para misturar duas linhas consecu- 
tivas com te\tos semelhantes. Assim, por exemplo, 

]0 PRINT “Entre com o primeiro número" 

20 PR I vj "Entre com o número seguinte" 

pode facilmente ser transformado em: 

30 PRINT “Lntrc com o primeiro seguinte" 

Olhe sempre para a leEa para verificar se os caracteres que exigem 
o ii vo da ioda Shifi foram digitados cor rei amente, Se não fizci isso, po- 
derá produzir jóias como: 

I# PRINT 6CNDF ESTÃO \S A5FA5/6 


Jamais tente alterar um programa enquanto está sendo digitado, Deixe 
para fazer as mudanças depois que o programa estiver funcionando, Não 
sc sinta tentado a pular linhas apenas porque elas lhe parecem dispensá- 
veis. Se em algum ponto o controle do programa for transferido para uma 
linha que você omitiu, o programa não funcionará. 

As linhas que começam com R l: M comem comentários que o ajuda- 
rão a compreender o funcionamento dos programas, Fssas linhas devem 
ser digitadas exatameme como aparecem na listagem. Depois que o pro- 
grama e st hei funcionando c a versão final estiver salva em fita Ou dis- 
quete, você poderá, se quiser, criar uma outra cópia sem as linhas de REM. 
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Náo há, porém t nenhuma vantagem real em fazer isso, já que a pequena 
economia de memória resultante náo justifica o trabalho que v<xé terá 
para localizar e suprimir as linhar. Nos programas que aparecem neste 
livm, as linhas de R.EM podem ser omitidas sem problemas, porque tive 
mos 0 cuidado de não transferir o controle do programa pura nenhuma 
linha lJc REM. Entretanto, não se pode dizer o mesmo de outros progra- 
mas; existem alguns autores que nio têm nenhum escrúpulo em transfe- 
rir o controle para linhas de REM. 

Os espaços podem ser tle importância vital para um programa de com- 
putador. Procure sempre certificar-se de que está entrando com o núme- 
ro correto de espaços. Para facilitar o trabalho, alinhe a borda de um 
pedaço de papel com os caracteres das linhas ac i m a e abaixo da linha que 
está sendo digitada e use esses caracteres para contar Os espaços, deslo 
condo o papel coluna por coluna 

I odas as lisiagcri.s deste lisro foram impressas com 39 colunas de lar- 
gui a, pata corresponderem á largura da tela do computador no modo 
ÜCRLL N 0- kl o o ajudará a verificar se u número de espaços está certo. 
Assim, por exemplo, se uma linha da listagem termina com quatro espa- 
ços. a linha na tela também deve terminar com quatro espaços. As instru- 
ções que ocupam mais de uma linha na Leia exigem uma atenção especial. 
Aperte a tecla RETl^RN apenas quando chegar no final da instrução. Se 
você se distrair e apertar a tecla RETURN ao chegar ao final da primeira 
] iiiba, a instrução será carregada de forma truncada. 

Usando uma régua para marcar a linha em que está, vocé reduz irá 
ainda mais a possibilidade de erros. 

Se você seguir todos os conselhos aqui enunciados, náo deverá en- 
contrar grandes problemas, F inevitável, porém, que, apesar de todas as 
precauções, apareçam alguns erros nos seus programas. Nesse caso, con- 
sulte o Último capitulo do livro, que contém alguns eo usei lios úteis para 
locais /ar erros. 


Acentos, cedilha e letras minúsculas 


Embora OS micros brasileiros disponham de acentos, estes em geral são 
usados para mostrar mensagens na tela e não para entrada de dados no 
computador. Esta é a filosofia adotada neste livro. Assim, não um ocen- 
ros ou ceditha para responder ás perguntas do computador . Os acentos 
devem ser simplesmente omitidos; O ¥ \ T \ substituído pela letra "c". A 
única exceção é 0 jogo *‘lloje, o Brasil", em que, por se í raiar de um 
jogo didático, os nomes dos estados e capitais só sào aceitos pelo eompu 
ladür quando digitados corrclamente, com todos os acentos qnç possuem. 
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Por outro lado, com exceção do jogo Maior-Menor, em que a letra “M“ 
é usada para indicar “maior 11 c a leira “m* 1 para indicar “menor’ 1 , as 
letras maiusculas c tu imiscuías podem ser usadas indis timamente paia res- 
ponder às perguntas formuladas pelo computador. 



Técnicas Usadas nos 
Programas 


Ponteiros de cor {coras lógicas) 

O sistema de atribuição dc eorc* adotado ao MSX pode ser usado para 
criar a ilusão de um movimento muito rápido. O método consiste cm de- 
finir separadamente cada elemento de uma imagem através de diferentes 
ponteiros de cor. Em seguida , os ponteiros sâo trocados pelo próprio pro- 
grama. Quando as eoies sâo modificadas, o efeito na teia c instantâneo 
e cria a ilusão de movimento. 

O programa Labirinla é um excelente exemplo do uso desta técnica. 
O resultado c um Labirinto em que o ponto de visla da pessoa que está 
jogando muda rapidamente. Mito seria possível conseguir o mesmo efeito 
de outra fornia, a não ser recorrendo a um extenso programa cm Lingua- 
gem de máquina. 


Ou «xelusívo (X0R) 


Esta é outra técnica que é usada neste Livro. O uso do XQR permite su 
perpor informações a uma imagem que jã esteja prcsenlc na tela. Ao scr 
executada uma segunda vez. a operação XOR remove a informação adi- 
cional, deixando a imagem antiga inalterada. 

Exemplos dos comandos necessários para usar esta técnica podem 
scr encontrados em muitos dos programas. O programa Xadrez contém 
alguns ótimos exemplos, 

O objetivo principal deste livro, como já dignemos, é oferecer prú- 
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gramas agradáveis e divertidos. l*ara descrever com pormenores como cada 
um. dc\ses. programa* funciona, leríamos que redu/ir k mel ade Q número 
de jogos que o iivro comem. 

Se você se dispuser a estudar a csirulura lógica de cada programa, 
descobrirá muitas soluções interessantes e originais para problemas prá- 
licos de programação. 1 eme compreender a razão peia qual cenas roti- 
nas são usadas c a fornia como funcionam. Depois que salvar cm fita a 
versão final de cada programa, experimemt modificá-lo de diversas ma 
rumas para ver o que aconleee; assim, aprenderá multo mais a respeito 
de programação e poderá incorporar o que aprendeu aos seus próprios 
programas, 

Agora chega de conversa e vamos começar a carregar nossos jogos. 



1 

Marie Celeste 



Uma Aventura rto Mar 


Neste jogo de aventura, você se encontra ancorado ao lado do lendário 
nav io- fantasma . 

Qual é o segredo do Marie Celeste'! Onde está a tripulação? 

Para resolver este mistério marítimo, basta fornecer as insti uçoes cor- 
retas ao computador. As mensagens foram misturadas [ta listagem para 
que você não descubra as respostas enquanto estiver digitando o programa. 

Na maioria dos jogos de aventura, as direções sâo indicadas como 
norte, sul, leste e oeste. Neste jogo* porém, como se trata de uma aventu- 
ra náutica, as direções são proa, popa, bombordo c boresu.% que corres- 
pondem, respectiva mente, à parte dianteira do navio, ix parte traseira, ao 
lado esquerdo e ao lado direito. 

Enquanto estiver jogando, é aconselhável desenhar um mapa dos lu- 
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gares por onde jd passou. O computados aceita instruções com duas ou 
trfis palavras, como '‘pegar balde" ou "subir pela corda", e abreviações 
de três letras para as direções: PRO, POP. BOM e BOR. Para saber em 
que direções você pode se movimentar, entre com "SAÍDAS". 

Pm muitos jogos de aventura, o jogador tem que entrar com a pala- 
vra "INVENTARIO" para sabei o que está carregando no momento. Nes 
tc jogo, porém, a lista dos objetos è mostrada na tela depois de cada 
movimento, 

No caso dos jogos de aventura, uma das táticas mais eficazes {mas 
que exige uma boa dose de paciência) é experimentar vários "verbos di- 
ferentes para descobrir quais os que fazem algum efeito. Alguns verbos 
muito usados em jogos de aventura são: pegar, subir, descer e abrir. Ten- 
te usar esses c outros semelhantes enquanto estiver a bordo do Morte Ce- 
Experimente também dar instruções como "Examinar a chave" no 
momento apropriado para ver o que acontece. Para abandonar o jogo, 
entre com "DESISTO", O computador perguntará a você sc deseja co- 
meçar de novo. 

Depois que resolver o mistério, convide os amigos para jogar tam- 
bém. Você se divertirá vendo outras pessoas passarem pelas mesmas difi- 
culdades que teve que enfrentar. 

1000 RE li «« MAR 1 E CELESTE - ISSI/JIM/ 
PAULG >»> 

1010 SCREEN 0: COLOR 15,4,7:KEY QFF 

1020 WIDTH 38: GOTO 2600 

.1030 RESTORE 1120 

1040 FOR N= 1 TO 35 

1050 FOR ti= i TO 6 

1060 READ A; LOCA TE N,M 

1070 PRINT GHR* (i) ;CHRÍ ( A) ; 

1080 NEXT M 
1090 NEXT N 
1100 FRINTjPRÍNT 
1110 RETURN 

1120 DATA 82,86,86,36,86,01 ,87,32,32,32 
,32,32,82,86,86,86,06,81,87, 32 ,32,32,32 
, 32 , 09 , 86 s 86 , 86 , 86, 81 

11313 DATA 32,32,08,88,96,90,32,32,87,87 
, 32 , 87 , 32 , i>2 „ 89 , 33 , 86 

Ü40 DATA 81,32,32,84,86,86,81,32,32,87 

,32,32,32, 32 , 32 , 89 , 32 ,32,32 
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1150 DATA 32,71*89*86,86,81 

1160 DAI A 32,32,68, 34,66 , 90 , 32 , 32 ,07,87 

, 32, 87 ,32.32 ,89,91,32. 91 

1170 DATA 32,32,32,32,32,32 

L1B0 DATA 88,86,86,96,86,90,97,32,32,32 

, 32 , 87 .89,32,32,32.32,91 

1190 DATA 32,32,30,04,86,90,32,32,87,87 

, : . , 87 , 32 ,32,09,91,32,91 

1200 DATA 89,86,06,86,86,81 

1210 DATA 32 , 32 , 88 , 04 . 86 , 90 , 32 , 32 , 87 , 87 

, 32 ,97, 37 , 37 , 09 ,91, 3 2 , 9 1 

1220 DATA 32,32,83,90,32,90.32,32.87,87 
, 32 , 07 , 32 , 32 ,39,09,36,91 

i 2 30 DA t A 3 2 , 1' 1 8 , 84 , Ú 6 , B 6,90,32, 3 2,87,32 
,32,07 , 32 , 32 j 32 , 32 , 32 ,91 

1240 DATA 32,32,88,84,86,90,32,32,87,87 

, 32 , 07 , 32 , 32 ,09,91 , 32 , 9 1 

1250 REÍ1 <<<< INICIAL l ZACRO >>>> 

1260 DEF FNA$ { N ) -RIGHT $ í í N ) , LEN ( □$( N ) 

) 2) 

1270 Dl M D( 10 , 7 } 

1288 DIM 0$ í 11) 

1790 DIM M ( 1 0 , 4 ) 

1300 DIM Q( II ) 

1310 RESTDRE 1410 
1370 FOR N=1 TO 10 

i ;v.0 nr ad d c n , i ) , d ( n , 2 j , d ( n , 3 > , d í n , 4 > 

1340 READ D(N,5) , D f N , 6 ) , D ( N , 7 ) 

1350 READ M <N, 1 . ) ,M( N, 2 .■ ,Mí M, 3) ,M [N,4 j 

1360 NE XI N 

1370 FOR N“1 TO 11 

1380 READ üíMNKQÍN) 

1390 MEXT N 
1400 RfcTURN 

1410 DATA 1 ,8, 10, 14*0,0,0 
1420 DATA 0, 0*0.0 
1430 DATA 1,4.6,20,36,21,31 
.1440 DATA 1*1, 0,0 
1 4 : 91 DATA j ,4,6, 20 .0,0,0 
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1 460 
1470 
1430 
i 490 
1 500 
1510 
1520 
1570 
1 540 
1550 
1 560 
1570 
1500 
1590 
1 600 
1 61 0 
1620 
1630 
l 640 
1650 
1660 
1 670 
1630 
1690 
1700 
1710 
1720 
1 / -0 
1740 
AND 
1750 


DATA 1,0, 1,0 

DATA 1,4,6, 20 , 32 , 22 , 34 

DATA 0,1, 1,0 

DATA 1,18,33,19,3,20,0 

DATA 0,1, 0,0 

DAI A 1.5,8,9,11,20,0,0 

DATA 0,0 T 0,0 

DATA 1,2,20,25,6,15,16 

DATA 1 , 0 , 0 , 1 

DATA 1,19,24,30,26,0,0 

DATA 0,0, 1,0 

DATA 1,12, 22 , 34 , 29 ,7,0 

DATA 1,0,0, 1 

DATA 3,20,1,17,33,27,0 

DATA 0,0, 1,0 

DATA A FACA,B 

DATA A LONA f 1 

DATA A FOCA DE AGUA, 2 

DATA A CORDA, 6 

DATA □ BI LHETL , 0 

DATA O BALDE, 4 

DATA A CHAVE, 0 

DATA U 15 A TO, 7 

DATA O ESFREGÃO, 5 

DATA O PAR DF GALOCHAS, 5 

DATA O GANCHO , 0 

R E M v : < < ENTRADA DE DA DO 3 > ; . > 
m ' ; I Tc J NT : PR 1 NT : PR 1 NT " > " ; 

A-ASC t INPUT$ (1 ) ) AND 223 : A=A OR 32 
A-0: Al-CHRM A) 

IF .A-3 AND THEN M*-LEFT* í Mt , 


LEM(MÍ)-l) : PR I NT CHRP(127> ; 


1 '60 H A=13 AND ,MI THEN PR 3 MT Aí; RE 


1 URN 

1770 IF (AP ■ A" OR 4$> ,, Z U ) AND A032 OR 
I FNíH$7=40 thEN 1740 
I 700 N$=NT. 1 A$ s PE 1 NT A$ ; s GO 1 0 1740 
■770 REN <v:<< INVENTARIO >»> 

! F. 00 I RINS: PRIN ! 
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I B I 0 F GR N= 1 TO i 1 ; I F □ ( N ) = 1 3 THEN GDTG 
1830 

1820 NEXT N iFRINT "Você nàc estè carreg 
ando nada * " ; RETURN 

1830 PRIMI "Vfiff? estè r^rregãndo;" 

1840 FOR N=i TO li 

1BPS0 IF 0 ÍN)=13 THEN F'RI MT FNHI í, M ) 

1.860 NEXT N 
1870 RETURN 

1880 REM <«< SEPARfiR »» 

3 890 " sM*~" ,h 

1900 i UR N=1 W i I N ( 1 

1710 IF = " 11 THEN GOTO 1950 

1920 NEXT N 

1930 VS-MS 

1940 RETURN 

1950 V*=I.EFT$'(M* t N 1) 

1 960 N$ -R I GHT* ( N 1 „ LEN i M* > ■ N ) 

1970 RETURN 

1980 REN í<<< EDMANDOS 
1990 GP3UD 1730 
2000 808 ULt 1890 

2010 IF Ví“"DEBI ET D' 1 I Hl M UOTG 3940 
2020 IF V*- 11 SAÍDAS* 1 THEN G08UB W0 
2030 CH-LEPT* ( 91 „ 3 t 
2040 IF C$= M UUM n THEN DOSUB 2640 
2050 IF Ct- l, BOR" THEN UUSUB 2670 
2060 IF C$" pl PRO lf THEN GÜSUB 2700 
2070 IF Cl= l, FOP ,í THEN UUSUK 2730 
2080 IF PEG " OR C** M CAR" OR C$- iÉ LEV 

11 OR F MFN G8SUB 2770 

2090 IF Cl-^EGL " OR CÍ-'*LAR" F HEN BOSUD 
2970 

2100 SE Cl—" ENT " THEN GOGUD 3050 
2110 II CS^BAI” THEN GG9UB 3110 
2120 IF C$~ " fiBR" GR GS= ,, FEC I> OR C$="TRA 
" FHEN GPSUD 3410 

2130 IF CS= M UOR" THEN GDSLJB 3520 
2140 XF Cí="SUB H UR Hl'- "DES" THEN GÜSUB 
3630 
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2150 IP C$= “HAT " THEN GOSUB 3770 
2160 IT C$ = "ENX ,Í OR C$«"5EC" THEN GOSUB 
3870 

2170 IF C*="AMA" OR C*-"PRE" THEN GOSUB 
3470 

2180 IF Cfc-XAL" OR C*=' r VES" THEN GOSUB 

2930 


2190 L$=LEFmV$ s 2> 

2200 IF Ci a<l I R' 1 DR Dfc^VA" OR C*-"VO" T 
HEN V$=N$ ; GOTO 2010 

2210 IF G$=" EX " OR CÍ-"LE ,Í THEN GOSUB 3 
170 

2220 IF THEN GOTO 2240 

2230 PRINT sFRINT "Não entendi. . . " 

2240 GOSUB 2450 
2250 GPTD 1990 

2260 REH <<<< APRESENTAÇftü »» 

2270 GOSUB 2330 
2200 OOSUB 1260 
2290 GOSUB 1030 
2300 P0=6 
2310 RETURN 

2310 <<<< STRINGS >>>> 

2330 DIM W*(36) 

2340 RE5TDRE 2390 
2350 FOR N=1 TO 36 
2360 REftD W*(N) 

2370 NEXT N 
2380 RETURN 

7 '.70 DATA VOCE L ST A, NA POPA f PROA , NO 9 BDR 
ESTE, CONVÉS .DEBAIXO, EM UM , PEQUENO s GR AND 

E 

2400 DATA " BARCO ? AO LADO" 1 ,Eh,UM ? BARCO 
SALVA-VIDAS * RANGE 

2410 DATA SOB SEUS PASSOS., DO. LADO DE F 
ORA, DF NT RO, NA ? DO MARIE CELESTE * 

2420 DATA ESTA, UMA, ND MAR. , CABINE , O *CAP 
ITAO. , TRANCADO. „ DESTRANCADO . , PARA , DO , MD 
LHADO . t VOCE VE , DE UM DEP OS 1 TO 
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2430 DATA PASSAGEM , DA 5 □ CHAO t DEMONIO , Tft 
I ANGULO DAS BERMUDAS , ATL ANT I DA 
2440 REM <<« DESCRIÇÕES > > > > 

2450 IF P0=2 AND ü( 10)013 THEN PRINT 11 
l) nhâo molhado e vo cê escorrega na 

direção dã proa - " ;PD-3 
2460 IF PO=I AND 0(2) =0 THEN GOTO 3980 
2470 PRINT 
2480 FOR N-l TO 7 
2490 PR INT WS ( D { PO , N )) í ,T " S 
2500 NEXT N 
2510 GOSUB 1800 

2520 PRINT: FOR N=1 TO 11 : IF 0(N)-PD THE 
N 2540 

2530 NEXT N : PRINT “Você nSto vé nenhum O 

bjeto. M sRETURN 

2540 PRINT "Você vê : " 

2550 FOR N=1 TO 11 

2560 IF 0(N)"PO THEN PRINT "UM";sIF LEF 
Tt(Of(N) J l)<> H O h THEN PRINT OS(N) ELSE 
PRINT RIBHT*(0*(N) S LENÇD*(N) ) 1) 

2570 NEXT N 
2580 RETURN 

2590 REM <<<< COMEÇO DO JDGD >>>; 

2600 GOSUB 2270 
2610 GOSUB 2450 
2620 GOSUB 1990 

2630 REM <<<< EXECUÇÃO DOS COMANDOS »> 

> 

2640 V*="*" 

2650 IF M ( PO , 4)=1 THEN P0=P0-5: RETURN 
2660 PRINT "Voce não pode ir nessa d ire 
çfto, " : RETURN 
2670 

2660 IF M ( FO , 2 ) “1 THEN F'0=F0+5: RETURN 
2690 PRINT "Var# í\'Au pode ir n eSSã dire 
cão. " : RETURN 
2700 Vt^" * 11 

2710 IF M ( PO , 1 ) — 1 THEN P0“PQ+1 s RETURN 
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2720 PFÍJIMT nfto pode ir nessa dire 

çSo > " £ RETURN 
2730 VS- 11 #" 

2740 IFÍPO-2 OR P0“7) AND D(PO, 1) OlhíTÍ 

D(PO,m and OÍ4)*PO THEN GOTO 3700 

2750 IF MC PO „3)=1 THEN RÜ-FO-i : RETURN 

2760 PRINT "Uacè n 3o pede ir nessa d ire 

ç âta. 1 : RETURN 

2770 V$= M * M 

2700 FDR N-l TO 11 

2790 IF N$~QS(N) OR NS=FNAS(N) THEN BGT 
O 2040 
2900 NEKT N 

2810 IF CS— 11 PEG " THEN PF*J N I "Pegar M ; E 
LSE IF CS="LEV" THEN PRINT "Levar M ; ' EL 
SE IF C$~"CAR " THEN PRINT "Carregar " 5 
ELSE PRINT "Segurar ; 

7B20 PRIN7 "o quÉ? ?" 

2830 RETURN 

2840 IF O { N ) = 1 3 THEN PRINT "Vocjà está 
coím " ; OS CN ) s RETURN 

2850 IF 0(N) OFO THEN PRINT "Que ” ; FNAS 
CN ) | " ? " 1 RETURN 

2860 IF N-4 AND D ( PO ,!)<>! NT ( D ( PO , 1 ) ) T 
HlN PRINT M Eoté. amarrada apertedn deiTiai 
s M ! " : RETURN 

2870 IF N-q AND D ( 7 ) =0 THEN OOSUEt 2900; 
:GQTÜ 3740 

28B0 IF N=2 THEN PRINT "Ela está presa 
no barco ! " s RETURN 

2890 IF N-l 1 THEN PRINT “E pesado demai 
s para voce 1 " : RETURN 
2900 DíNJ-13 

2910 PRINT "Voce pbgã ° ; DS { N ) 

2920 RETURN 

2930 VS="*";f:F NSODÍÍ10) AND N*OFNA*< 
10) THEN IF CS=" VES 11 THEN PRIMI “Vestir 
□ □ u 9 M ; RE T UR N ELSE PF ^ I N F "Calçar o qut 
& ?" : RETURN 
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2940 ir O(.10)~Í3 THEN PRINT 'Você já ca 
Içou " ;Ot ( 10) zRETURN 

2930 I F O(1I0K>I>G THEN PRINT "Que " ; FNA 
4(10);" RETURN 

2960 PRINT "Vacé calça 11 5 Q* ( 10 í : O ( 10 ) 

3 a RETURN 

2970 v*= r, r 

2900 POR N— 1 TO 10 

2990 IF M$-0*íN) OR NÍ=FNAÍU N ) THEN 303 
0 

3000 HEXT N 

3010 IF C*="B0L M THEN PRINT "Soltar " ; 

ELSE PRINT "Largar *'j 

3020 PRINT "o que 7" s RETLJRN 

3030 IF O ( N > < > 1 3 THEN PRINT "Vocè náu e 

stá carregando esse obisto 1 "sREFURN 

3040 PRINT "Uoct? tulLd " ; ü$ ( N ) s O ( N ) -POí 

RETURN 

30 30 

3060 I F (m O" DEPOSITO" AND mO !, ND DEP 
QSITO" > ÍHLN PRINT "Entrar onds ?" sRETLI 
RN 

3070 IF PO-S THEN PRINT "Você já está d 
entre delo ! " a RETURN 

3090 IF PQO10 THEN PRINT "Que depósito 
7" : RETURN 

3090 IF M< 10,45=0 THEN PRINT "Está tran 
rado ! " s RETURN 

3100 f 'ü=b ; PR í N I " Mnr £> írnt.ra no dtpòsi Lu . 
■' : RETURN 
31 10 " * " 

3120 IF (NfO" DEPOSITO" AND Nt <> M D0 DEP 
□EITO") THEN PRINT "Sair de onde ?":RET 
URN 

3130 IF Pü=it3 THEN PRINT "Vocè já está 
fora dele ! "sRETURN 

3140 IF F0O5 THEN PRINT "Que depósito 
7" : RETURN 

,31.50 IF' M ( 10,4) ”0 THEN PRINT "Está tran 
cada !" j RETURN 
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3160 P0= 1 0 ; PR I NT*' Voe# 5ãi 'do depósito, M 
s RETÜRN 
3170 *" 

VI 80 1F NS=" DEPOSITO" DR Ní-^D DEPOSITO 
" THEN IF Pü=10 THEN PR INI “"Ele está";UJ 
*<D(P0,6) ) sRETÜRN ELSE IF PO-D THEN PRI 
NT “Ele è escuro e empoeirado, “ sRETURN 
ELSE RRINT "Que depósito 7" i RETÜRN 
3190 FQR N— 1 TO il 

3200 IF N$=0$(N) OR N4-FNAÍ <N) THEN SOI 
0 3250 
3210 NEXT N 

3220 IF CÍ= ,, LE‘ I THEN PRINT "Ler " ; ELSE 
PRINT "'Examinar " ; 

3230 PRINT "□ què ?" 

3240 RETÜRN 

3250 IF C$= M LE " AND NOb THEN PRINT "Qu 
e bobagem RETÜRN 

3260 IF 0(N)OP0 AND 0<N><> 13 THEN RRI 
NT "Gue ”;FNAÍ i(N);” ?“;RETURN 
3270 IF N=1 THEN PRINT " E afiada ‘ 11 

3200 IF N=2 THEN PRINT "E verde ! " 

3290 IF N=3 THEN PRINT "E de àgua salga 

da ! ■* 

3300 IF N=4 THEN PRINT "E bem grossa e 
resistente \ “ 

3310 IF N-4 AND D ( PO , 1 ) <> I NT [ D ( PO , i } ) T 
HEN PRINT M l stà amarrada na amurada do 
navio ! " 

3320 IF N=5 THEN PRINT "Està escritoí 1 ' a 
PRINT " ’ NÊio adianta examinar o gato " 
3330 IF N— 6 AND 0(7)00 THEN PRINT "Est 
á vazio ! u 

3340 IF N==6 AND 0(7 ) -0 THEN PRINT "Caiu 
algo de dentro dele |Hi :Oí7í— FQ 
3330 IF M-7 THEN PRINT ,r Està escrito D 
EPGSITO* !" 

3360 I F N=0 I HEN PRINT "Ele sai turrend 
o atrós de um rato ! M ;O(B)-0 
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3370 IF N=9 THEN PRINT "És tá muito gaet 
O ! M 

33BP IF N*-10 THEN PRINT H S%o fedorentas 

I Í1 

3390 IF N= 1 1 THEN PRINT “Parece que è p 
ara uma corda \ 11 
3400 RETURN 

3410 9*="*" sIF ***<>" DEPOSITO" AND N*<>" 
□ DEPOSITO" T1HEN IF C$="ABR" THEN PRINT 
"Abrir □ quê ?" s RE TÜRN ELSE.IF C*="FEC 
11 THEN PRINT "Fechar o qué 7 " : RETURN EL 
SE PRINT "Trancar o quê 7" : RETURN 
3420 IF FOOÍ0 AND PO 03 THEN PRINT "Qu 
f? depósito 7 11 : RETURN 

3430 IF 0(7) 013 THEN PRINT "VOCE NRD T 
EH A CHAVE i " : RETURN 

3440 IF Cí O'" ABR " THEN M (PP, 4 ) =0 : M ( Pü , 2 
)-0; PRINT "Você tranca o deposito. 11 :D( i 
0 ? ó) =27 = RETURN 

3430 IF PO=10 THEN N(PO, 4)=1 ELSE M ( PO , 
2 ) = 1 

3460 PRINT "Você abre o depòsi to . M : D ( ) 0 
,6 )*2S; RETURN 

3470 VÍ-"* H =IF N$OOí(4) AND N*OFNA*(4 
) THEN IF C$= "ANA 11 THEN PRINT "Amarrar o 
qu# 7" s RETURN ELSE PRINT "Prender o qu 
ê ?": RETURN 

3400 IF 0(4)013 AND 0(4)OPO THEN PR IN 
T " Que " iFNA$(4);" ?"; RETURN 
3490 IF D ( FO ,l}OI NT ( D ( PO 4) ) THEN PRIN 
T 0^(4);" já. esta amarrada È "=RETURN 
3500 IF P0O6 AND POÍ>7 AND [P002 DR Q 
(11)02) AND FDOl THEN PRINT "Não hâ O 
rrde amarrÁ-la aqui ! n :RETURN 
3510 D £ PO , 1 ) “D ( PO ,1) + , 5:0(4) “PO : PRINT " 
Você amarra 0*( 4 ): RETURN 
3520 V*= fc, * M :IF 0(1)013 THEN PRINT M Com 
p qu#?" ; RETURN 
3530 FOR N=1 TO 11 
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3540 IF Hi-DFtM) OR N$ _ FNAt f N ) THEN 35S 
0 

3550 NE XI N 

3560 PR I N I" "Cortar o que 7 11 
3570 RETURM 

3B0 IF 0 1 M ) •: : PO AND O(N) 13 THEN PR IN 
S "Que " ; FNA$ í N ) j " * ; RETÜRN 

3590 IF N-4 THEN IF D ( PO f i )<>I NT (B ( PO , 1 
)J THEN D(POa]“D(PO,l)--5 
3600 IF N~2 THEN PRINT "Voce corta ";0$ 
(2 ) 3 GOTO 3900 

3610 IF N-8 THEN GOTO 3770 

3620 IF M— 3 DF: N-4 THEN PRINT "Você cor 

ta " ;Q$ÍN) j " . " ; RETURN 

3630 PRINT " 0 ue besteira 1" 

3640 RETURN 

3650 VT-"*':IF N$<> "PEL 11 +OS ( 4 J AND N$<> 
"N" -U* ( 4 ) 1HEN PRINT "Por onde 7 ,I :RETUR 
N 

3660 I F 0(4)0 F'Q AND 0(4) <> 13 THEN PRI N 
T "Gue corda 7" 3 RETURN 

3670 IF 0(4)3*13 THEN PRINT "Comove vnc 
e a esLci tdrregèindo 7" 5 RETURN 
S 6 O 0 IF DíF'0,1 )^INT(D(PO, 1) ) THEN PRINT 
''A corda não està p resd a nada f 11 s RE TU 
RN 

Vy?0 li (C$="DES" AND {PD^i OR Pü=6) ) OR 
ÍC*="5UB" AND í F'G=2 OR P0=7 ) ) THEN PRI 
NT "Impossível - M : RETURN 

3700 PRINT "Vo cê? "s sIF PD=6 OR F0=1 THE 
N PRINT "sobe" ; ELSE PRINT "desce"; 

3710 PRINT u pela corda." 

3720 IF PO =6 THEN Pü=7 : D ( 4 ) =7sD ( 7 , 1 ) -D ( 

7 Í 1) + .5:D(6 ? 1) =>D ( 6 , 1 ) - . 5 : RETURN 

3730 I F PD = 7 fHEN PO =6 : Q í 4 ) -6 : D f 6 ? 1 ) =D ( 

6 í i)+.5:D(7 5 l)^D(7 ? l)-.5: RETURN 

3740 IF PQ-2 THEN P0=1 : D ( 4 ) =1 : D( 1 » 1 ) — D ( 

1 i 1J+.5!D(2,I)‘D(2,1)-.5: RETURN 
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3750 IF PO— 1 THEN Pü~2 = □ ( 4 ) =2 ; D ( 2 ? 1) -D( 
2,l) + -5sD(Í,i)sD(l,lJ-.&sRtL rüRN 
3760 RETÜRN " 

3770 V4- IJ t":IF {N*-0*(B) OR N$=FNA$(£l) ) 
THEN IF Ü(S)^PD OR f.l(tt)=l3 1 HEN PRINT 
Ei *( 8 ) 5 * fugiu . " i D f B > - 0 ! RETÜRN ELSE P R I N 
T "Que 111 : FNA* í 8 ) ; " ? 11 = RETÜRN 
3780 PRINT “'Que bobagem ! fl s RETÜRN 
3790 

3300 PRINT: PRINT "At taidae sãn:" 

3010 IF MCPU.DO© THEN PRINT "PROA " ; 
3320 I F M C PO • 3 ) O0 OR D ( PD , 1 ) < IN I ( D ( PD 
b 1 > > THEN PRINT "PDF A 

3830 IF flí 00,21 <.:■© THEN PRINT "BÜRESTE 

H . 

7840 I F M í. PO 7 4 ) < :■ 0 f Hf N PR I NT " BOMBORDO 

IP a 

1 

3830 I F N ( PD 7 1 ) -0 AND M t PO , : ) =0 AND H í F 
0,3) =0 AND MfPOp4)-0 1HEN PRINT " NENHUM 
A, 11 ; 

3860 PRINT : RETÜRN 
3870 

7880 IF PO O 2 THEN IF CÍ= ,, ENX“ I THEN PRI 
NT "Emíugar o quê 7 ““ í RETÜRN ELSE PRINT 
"S^car o quê RETÜRN 

3390 IF 0(9)013 THEN PRINT "Como ? seu t 
□lo ?": RETÜRN 

3900 IF 0(6)013 THEN PRINT "Onde voc,ê 
vai e ^ p r eme r o esfregão 7 J 1 : R E TUR M 
3910 Q ( 3 ) — 0 s PRI NT "Muito bem 1 Agora pb 

tá SPQiiro, " 

1920 TM 2 , 1 j =1 ; D ( 2 , 2 ) -2 T D f 2 , 3 ) -20 : fM J 2 n 4 í 
=32 a Q i 2 , 5 ) =13 3 D ( 2 . è ) -14 r D { 2 , 7 ) =23 
3930 0(11) -2: RETÜRN 
3940 PRINT "Quer jogar de novo 7" 

3950 DDSÜB 1730 

3960 I F N t- S 3 r-r 1 OR M t = " G " OR "QUl i <0 
" THEN RUM 
3970 CLSiTND 
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3980 PftINTíPRINT SPRINT "SURPRESA !!'!! 
SURPRESA f í ! ! ! " :PRINT IL NOB NOS ESCONDEM 
OS DE UM" :0$<2) ; "EM " 13 ) 5 

" y 11 ) ; " M ;W*(20J 

3990 PRENT 1h N6s Achàvanuy que voctíP' 

4000 PRINT 11 NUNCA conseguiria descobrir 
!« :PRÍMT:FRINT "********** FIM DA AVEN 
TL RA **********" 

40Í0 END 



2 

Diga, Mestre 



Um Jogo de Adivinhação 


Este jogo não é bem o que parecei Ao carregar o programa, voei pode 
ter a impressão de que compreende per feitamente o que ele f 32, mas du 
rante a execução verá que as coisas não são tão simples assim,., 

Em Diga, Mestre, o computador é um “professtir” que escolhe um 
assunto c pede a você palavras apropriadas. Suponhamos, por exemplo, 
que o computador escolha “filmes”. Você então pode entrar com “Di- 
ga, mestre, serve AUEN?" O professor pode responder “sim 1 ' ou “nào 11 . 
Cabe a você tentar descobrir & ra/.kci da resposta antes de entrar com ou- 
tro exemplo, como jí O EXTERMINADOR D-U FUTURO”* para o qual 
a resposta também poderá ser “sim” ou “não”, O jogo continua até vo- 
ec conseguir obter três respostas “sim” seguidas, caso em que o compu- 
tador supde que você já sabe por que alguns filmes “servem” e outros nãíj. 
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Mais tarde, quando já estiver dominando perfeitamente o progra- 
ma, lalvr/. voec queira modificá-lo para mudar as regras ou acrescentar 
novos assuntos* o que poderá constituir um novo desafio! 

Mostre a um amigo a listagem do programa. Ele na certa ficará sur- 
preso com a falta de dados. Invente unia explicação qualquer ou então 
diga -lhe o seguinte: 

“O programa utiliza um sistema avançado de análise de tento com 
base nas características matemáticas das palavras dá Língua portu- 
guesa. Assim, a Sdcção Criteriosa de parâmetros permite aplicar ro- 
tinas de teste rvlalivamenle gerais a respostas específicas,” 

Natural mente, você sabe que esta explicação é fantasiosa, já que vo- 
cê mesmo entrou com as linhas em que as palavras são verificadas! Por 
que, então, na categoria "insetos”, mosquito serve e mosca e percevejo 
não servem? 

Notas: 

1) Sc você comeier um erro quando estiver entrando com uma palavra* 
aperte a tecla de retrocesso. A palavra inteira será cancelada e você pode- 
rá digitá-la de novo, 

2) Se dcsisLir de descobrir a regra c quiser continuar jogando, entre com 
a palavra "DESISTO”, 

1000 REM <<<£ DIGA , MESTRE - AWDY >>>> 

1010 OLEAR 2000 
1020 DIF1 SíílJL) 

1030 80SUG 2190 
1040 RE3T0RE 1830 

1050 SCREE.N l,3lCDLOR 15,13,Í3:KEY GFF 
1060 FÜR S=0 TD 9 
1070 rrtR ft-1 ÍO .32 
1080 READ 

1 090 S# f 5 ) = 5* ( B ) +CHR* C VAL ( " 8cH”+A$ ) ) 

1100 NEXT A 

1110 SPRITEí (S)=5*< G) 

3 120 ML X T S ; Y“5ó 
1130 FOR TO 160 

1140 GDBUB 2030 
1150 NEXT 
1160 GUGUB 2080 

1170 LOCATE 11, 5: PR INI "DIGA,” 
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1130 LOCATE 11 ,7 SPRINT "MESTRE " 

1190 FOR T=1 TO 2500:NLXÍ T 
1203 CLS 

1210 X“S0s^=40:GDSÜB 2030 : GÜ5UB 2030 
1220 FÜR YY“0 TO 23: LOCATE 20, YY : PR INI 
" ; " : IMEXT YY 

1230 FOR X=2i TO 30 : LOCATE X 5 S :FRINT " = 
" : LOCATE X, 13 SPRINT ;NEXT X 
1240 LOCATE 21, 2 SPRINT "DIGA Ü ir 
1250 i no ATE 21,3: PRINT "NOME DE" 

1260 LDCATE 21,4:PRINT "UM" 

1270 LOCATE 21 * 10 3 PP INI "ACERTOS" 

12B0 LOCATE 21*11 : PRINT "SEGUIDOS" 

1290 LOCATE 21 , 17 : PR I N 1 "JOGO ND - " 

1300 GO SUB 2170 

1310 LOCATE 2, 16: PRINT "DIGA „ MESTRE s SER 
VE" 

1320 REM <<<< COMEÇO DD JUGO >>>> 

1330 W [ N=0 : GQ-DD+1 

1340 S=INÍ tl'ND(-TIME)#lS)+l 

1350 LOCATE 23,4:PRLNT L.LF 

1360 LOCATE 21,5: PR I NT RI GHTT ( T* ( S ) „ LI N 

(T*(S))-1) 

1370 LOCA TL 23, 13: PRINT WIN 
13S0 LOCATE 23, 20: PRINT GO 
1390 A°T(S 5 1) íB=T{S, 2) sC=TÍS,3) 

1400 DEF FN 0K=ASC(LEFT^(AÍ,1) ] 

1410 IF A=2 THEN DEF FN OK-ASC ( RI GHT* { A 

U ) 

1420 IF A=3 THEN DEF FN OK^ASC ( M I D$ { Aí „ 
3 , 1 ) ) 

1430 IF A=4 THEN DEF FN GK=LEN { A* ) 

1440 IF A=5 THEN DEF FN OK-SFHt 

1450 IF A-6 THEN DEF FN OK=ASC(LLl- IS(RI 

GHT* É Aí ,2) , 1 ) ) 

1460 RE M < < < < LOOE- 1 PRINCIPAL >» > 

1470 GÜSLiB 1550 

14S0 IF Aí=" DES IBTO" THEN 1200 
1490 IF RE-C THEN GQSU6 1690 ELSE OOSUB 
1720 
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1500 FOR 5“1 TO 1000:NEXT SíPUT SPRITE 
8, (-32.-32 ) 

1 5 10 LOCATE J J , 1 3 : PR I NT WIN 
1520 IF WIN^3 THEN FOR K=1 TÜ 1000SNEXT 
K ; GOTO 1750 
1530 GOTO 1470 

1540 REM <<<< ENTRADA DE DADOS >>>> 

1550 A*=" M :SP”0:BQTO 1630 

1560 LOCATE 2 ,18 SPRINT Aí 

1570 W*~INKEY*:IF Wí~"" THEN 1570 

1580 IF W*-" " THEN SP=SP+1 % GOTO 1620 

1590 IF WÍ-CHRSÍ13) AND LENÍAÍ>>1 THEN 

1640 

1600 W=ASC(WÍ ) AND 223 : WÍ=CHRÍ < W ) 

1610 IF WÍ<"A" OR WÍ>"Z“ THEN GOTO 1550 
1620 AÍ=Aí+Wí:IF LEN ( Aí ) =15 THEN 1640 
1630 LOCATE 2,18.sPRINT STRINB® C 16 , 11 11 } í 
GOTO 1560 

1640 A=LEN(A*) jLOCATE 2+LEN Ç Aí ) ,18 s PRIN 

X H‘?U 

1650 IF A<1 THEN 1550 
1660 RE-FN Ok 
1670 RETURN 

1680 REM <<<< SI N >>>> 

1690 PUT SPRITE B , (30,10) ,15,0 
1700 W1N=WIN+Í IRETLIRN 
1710 REM <<<< NAÜ >>>> 

1720 PUT SPRITE 8 , ( 30 , 10 > , 1 5 , 9 

1730 WI N=0 i RETURN 

1740 REM <<<< GANHOU 1>>> 

1750 SCREEN 1 ; l GCATE 9,3sPRINT "Rarabèn 

s i 

1760 LOCATE 9,4:PRINT STR I NGí ( 10 , 11 ) 

1770 LOCATE 2 J 10:PRINT " Voe# descobriu 
□ segredo f M 

1780 LOCATE 0 , 20 : PRINT "Aperte 'J' para 
jogar de novo" 

1790 Aí =1 NKEYÍ 

1800 IF Aí”' 1 *}" OR A$^" i" THEN 1200 
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1810 GOTO 1790 
1B20 GOTO 1020 

1 830 DATA 0,0, 0 , 0 , 0 g 0 , 0 , 0 , 0,0,0, 1,1 ,1,2 
>2 

1840 DATA 0,0,70,7,8,^,38,78 ,41 ,90,80, 

0 , 0 , 60 , 30 , 60 

1830 DAT A 0,000,06, FD , FF , FF FF , FF , 7F ,20 

, 0 , 0 , 0 , 0, 0 

1860 DATA 0,0,0,0,E0,DE!,Bft,C2*E2,E7,E7, 
67 , 27 , 2A , 2A , 2A 

1870 DATA 4,4,8, 8,7,1* 2,2., 2,1, 2,2, 1,0,0 

,0 

1380 DATA 0,0, 0,0, 0,0, 0,0, 0,0,0, 1G , E4 , 2 

2 2 
s ri *- 

1390 DATA 0,0,0, 0,0, 1,1,2, 4, 4, 4, 4, 4, 4, 2 

,2 

1900 DATA 20 , 20 , 40 , 40 , O0 ,0,0, 0,0, 0,0,0, 
0 , 0 , 0 , 0 

1910 DATA 0,0,0, 0,0,0, i ,6„G 5 10,20,20,40 
,40,40,40 

1920 DATA 0 , 0 v 0 f 0 , F , 70 . 80 ,0,0, 0,0, 0,0,0 

1930 DATA 0 ,0 ,0 ,0,E0, 10,8 ,4 , 3, 0, 0,0, 0,0 
,0,0 

1940 DATA 0,0, 0,0,0, 0,0, 0,0, 80 , 40 , 20 , 20 
,10,10,10 

W30 DATA 00,80,80,80,00,80,40,40,20,20 
, 10 ,8,6,1 ,0,0 

1960 DATA 0,0*0, 0,0, 0,0, 0,0, 0,0, 0,0, 80, 
60, 1F 

1970 DATA 0,0, 0*0, 0,0, 0,0*0, 0,0, 0,1*6, 3 
8,C0 

1980 DATA 10 ,10, 10,8,8,8,0, 10, 10, D, 62 , 9 
9,7 ,0,0,0 

1990 DATA 0 , 0 ,0 , 0 , 0 * 0 , 0 , F3 , 00 , Si , F8 ,9,9 
,9,F9,0 

2000 DATA 0 , 0 f 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 * 38 , 2A, 2 
A,2A,0 

2010 DATA 0,0,0,0,0,0,0,88,88,80,00,86, 
SAjGA ,8 D, 8 
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2020 DATA 0,0,0, 0,0,0, 0,0,0, C0 „ 0 , CF , 49 , 

49 , EF , 0 

2030 PUT SFRITE 0, (X f Y) ,1^,13 
2040 PUT SPRITE i , (X+32 S Y3 , 15,1 
2050 PUT SPRITE 2, (X ,Y+32) ,15,2 
2060 PUT 5PR I TL -5 , £ X l 32 , V I 32 ) , 15,3 
2070 RETURN 

2080 PUÍ SPRITE 4 , ( X-64 , Y-40) , 15,4 
2090 PU 1 OPR 1 TH 5 , ( X— 32 , Y-40 ) ? 1 5 , 5 
2100 PUT SPRITE 6 , ( X~64 , Y 8) , I5 f 6 
2110 PUi SRRJTE 7, ÍX-32,Y-B) ,15,7 
2120 RETURN 

2130 LOCA TE 1,15 : PR I NT " — h-w — 

— J-i *■ 

7140 FOR Y=16 TO 18 : L0CATE1 , Y : PR1NT "5 

I ll 

í 

2150 MEXI Y 

2160 LDCATE 1,19 SPRINT M 

ll 

2170 RETURN 

2180 REM <<<< ASSUNTOS >»' 

2190 RESTÜRC 2290 
2200 DIM T*< 18) 

2210 FOR N-l TO 10 
2220 RE A D T*(N) 

2230 NEXI N 
2240 D1M T ( 18,3) 

2250 FOR N=1 TO 18 

2260 RE AD T < N , 1 ) , U N , 2 3 , T ( N ,3 ) 

2270 NEXT N 
22B0 RETURN 

2290 DATA " PA IS lf , 11 ATOR" , AC AP I TAL , " PL 
ANETA" , 11 FILME"," LLIARU' 1 

2300 DATA " RIQ‘\ AFRU TA, ACURAM UR, AARV 
ORE 1 11 ESPORTE" 

2310 DATA 11 ANIMAL"," PASSARO"," INSETO 
" , AMUSICA , " PE 1 XE ,r , " LIVRU" 

2320 DATA 2,66,65,1,69,74,2,70,33,3.2,6 
9 
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2330 
2340 
23 50 
9 

2360 


DATA 5,2, 4, 4, 63,7, 4 ,69,4,3,2 
DATA 3,3, 02 , 6 , 73 , 73 ,4,19,8,2 
DATA 1,0,67,1 , 00,00,6,64,64, 

DATA 6,72,60,5,65,65 


,65 

,65,76 

5,65,6 


3 

Eu Acuso 



Descubra Quem é o Culpado 


Este é um jogo para testar a sua capacidade de dedução 

Vocc é o Inspetor Silva do DIC (Departamento de investigações Cri- 
minais) e está sendo submetido a uma série de testes, que tém por objeti- 
vo avaliar sua coragem, persistência e capacidade dc usar o computador 
em investigações criminais, Como não podemos reproduzir aqui as pro- 
vas dc coragem r persistência* vamos nos limitar ao teste de investigação 
por computador. 

O computador tema capacidade de gerar milhares dc diferentes per- 
mutações a partir dc um certo conjunto de dados. Em um piscar de olhos, 
ele seleciona um criminoso c uma série de características pessoais que o 
identificam perícia nmenic. Você (em direito dc interrogar uma testemu- 
nha do crime a respeito de seis dessas características; para isso, basta cu- 
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rrar no computador com o número correspondente à característica 
desejada, de acordo com a lista que aparece do lado esquerdo da tela. 
ü computador então mostra as característica* do* diferentes suspeitos e 
a característica do criminoso, de acordo com o depoimento da testemu- 
nha, Se você souber escolher bem as perguntas* poderá descobrir facil- 
mente o culpado! 

Depois de fazer as seis perguntas, você entra com o número da pes 
soa que julga ser o criminoso, O computador então revela *e você acer- 
tou ou não, 

1000 REM < < < < EU ACUSO “ J IM/ANDY >>» 
1010 REM 
1020 KEY QFF 

1030 5DREEN 0.0,0: CQLDR 15 , 4 , 4 ; W 1 Dl H 36 
1040 GDSUE 1350 ' 

1050 GOSUa 1560 
1060 GDSUE 1700 
1070 EOR G-i TO 6 
1090 GGSUB ^2090 
1090 NEXT G 

1100 LOCATE 0,18: PRINT STRINGÍ { 39 , 11 " ) 
1110 LDCATE 0,13 = PR I NT "Agnra entrP c om 
□ número tia pessoa. que voeõ acha 

qup cinfriet.&u n> crime . " 

1120 PRINT " A testemunha dusse que 
aPRINT 

1130 REBTORE 1330 
1140 FDR N-l TO 10 
1150 READ AH 

1160 1F W ( 1 ) =N DR W í 2 ) =N OR W(3)-=hí OR U 
( 4 ) — N THEN PRINT 11 0 criminoso*' ; A* j n "55 
HCS,N) 

1170 NEXT N 

1180 A$ = INKEYH : IF- . AH< " .1 " OR A«í"4 tl THE N 
1100 

li VO CR“VAL( Af ) 

1200 FDR Y“12 TO 21 ; LDCA TE 0, Y : PRINT ST 
R1NGTÍ79, " M ) : NEXT Y 
1210 IF CR-S THEN 1290 
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122 0 LUCATI 0 T 1 5 : F'R I NT "Que vergorihs, 
Inspetor' Gibbs! Está rebaixado 

a Buardâ Gibbs! 11 
1230 PLAY " 1 16 fede 1 2c " 

1240 FRINTiPRINT 11 0 criminaso era o su 

speitü ríúmer Q " ; 5 ; 11 I " 

1250 LUÍJATI 0,20:PRINT “'Aperte qudlquer 
toc la para j og ar d n ny o 1,1 
1260 A*=INKEY*:IF ftí-" 11 THEN 1260 
1270 FOR K!^0 Tü 9 s QW ( N) -0 : NEXT N 
1280 GOTO 1050 

1290 LOCA TL 0 , 1, 5 ; RR I NT "Psrah^ns, Inspet 
or Gibbs ! " 

1300 PLAY " 1 làcide fcdef cde!2f " 

1310 PRINTjPRINI "G senhor descobriu qu 
em et a o criminoso u partir das pistas 
d i S pon .1 ve i 5 i " 

1320 GOTO 1250 

1330 DATA IE era M , " ora 1 ',," era"," tinha 
cabpln" , 11 tinha cabelo" , " estava de" 
s " calçava 1 '," tinha olhos" f 11 tinha um n 
ariz' 1 ," tinha umã" 

1340 REM <<« INICIALIZAÇftO >>>> 

1350 DIM 3$ 14, 10) 

1360 DIM W(4),GW(9) 

1370 DIM Lí ( 10,4 ) 

1300 RESTQRE 1450 
1390 FQR N-i TO 10 
1400 FOR M-l TO 4 
1410 READ 
1420 NEXT M 
1430 NEXT N 
144W RETURN 

1450 DATA HOMEM, MULHER ? H0MI M, MULHER 
1460 DATA GORDO , MAGRO « FORTE < PAL 1 DD 
1470 DATA ALTO , GRANDE , BA I XO , REOUEND 
1480 DATA L I GO , CUR 1 Ü , CRESPO , LONGO 
1490 DATA BRANCO, PRETO, LOURO, RUI VO 
1500 DATA J EAlMtí , MACACSQ ? CAPA , SHORTG 
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1310 DATA TAMANCO , 90 I A „ TENI 5 >BALÜLHA 
1 520 DATA AZUIS, MARRONS , VERDES , PRETOS 
j ‘i i ■ i' 1 M ? 1. 1 i - .l , i-iLl-ULAR , I iJP ] O 

1 340 DATA F-' .1 S I ULA „ R \ NI A , I ACA , MALA 
1530 REM •• TELA >»> 
í 5/.. 0 MD = 1 : Í3CREEN 0 s W IDTH 40 
1570 F L.il ■' M- 5 li in >4 ST EP G 
1 5 0 0 I n f : A TI N , 0 : P F I N I MU 
1390 wü=ne i i 1 
1600 NE > 1 N 
16.10 RE ST ORE 1660 
1620 FDi: N--2 TO il 
1630 LULA TF 0 , N 
1640 READ Aí SPRINT A* 

1630 NEXT N 

1660 DATA 0-ÊÍOO, 1 -TIPO * 2- ALTURA ,3-CABE 
LO $ 4 -COR ' J „ 5 “TRAJE * 6-SAPATO , 7-0LHÜS ? S N 
AR I Z h 9- OU CRUS 

1670 LOC ATE e, 10 SPRINT "I. ücnlr.3 uma pis 
ta <0“9). , * . " 

1690 RETURN 

1690 REM <<<< ESCOLHA DOS SUSPEITOS »> 
>01 

1 700 9-1 NT ( R ND { “1 I ME ■ 1 4 ? + i 
1710 FQR N=1 10 4 

1720 W(N)“0 
1730 CH-0 

j >40 A= i NT ( RMD C 1 ) * 10)+ 1 
1750 FOR 0-i TO 4 
1760 IF 14(0) +A THEN CH=1 
1770 NEXT ü 

1780 IF UI 1=1 THEM 1730 
1790 W(N)=A 
1900 NEXT M 
1010 FOR hi-i TO 10 
1920 FOR 0=1 TO 4 
1330 A” I NT \ PHD ( 1 ) #4 ) +1 
1940 ST ( □ , N ) =-L T f N , A > 

1050 NEXT Q 
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NEXT N 

1B70 M=W{ 1 ) :GÜSUB 1900 ; N=W<2) íBCSUEí 190 
0 

1000 N=W(3) sEDSUB 1900 : N=W í 3 ) : 0OSUB 198 
0 

1890 RETURN 

.1900 A=INT(RNDf 1 ) +4Í+1 
1910 St (S,N>=LÍ (N,A) 

1920 T=S+2=IF T> 4 THEN T=T^4 
1930 BUÍ T , N ) “Lí (N,A) 

1940 IF flOl THEN B=A-1 ELSE B=4 
1950 T=T~2;IF T<1 THEN T-T+4 
1960 Et (T^NJ-LÍ (N ? B) 

1970 RETURN 

1930 A-ÍNTÍRNDfl )M)+1 
1990 Sí<S p N)=Lt<N,A) 

2000 IF SOI THEN T=S-Í ELSE 1=4 
2010 Et £ T „ N ) =L é ( N „ A ) 

2020 IF AO 4 THEN B^I ELSE B=1 
2030 T^T"i : IF T=0 THEN 7=4 
2040 St < T , N ) ™L$ í N * B ) 

20R0 í =T-1 í I F T-0 THEN T-4 
2060 St ( T , N ) =Lt( N r B ) 

2070 RETURN 

2000 RLF1 ;<<< ESCOLHA DAS PISTAS >>>> 
2090 AÍ=INK£YÍ=IF At= M " I HEN 2090 
2100 G3U3=9ALlAtJ 

2110 IF m* 0 ÜR ÜW>9 0R Qh|(GV))<>0 THEN 
2090 

2120 PLAY ,, LSF" sQW(GW) = l :GW=G1W+1 
2130 FOR PE-1 TO 4 
2140 LOCÁTE 0+ {PE#S-7 ) > 1+QW 
2150 PRÍNT SttFEjQW); 

2160 NEXT PE 
2170 RETURN 


4 

Star Trek 



Voce Agora é o Capitão Kirk 


Já foram escritas versões dè Síar Trek para praticamcmc todos os micros 
lançados no mercado, o que demonstra u popularidade deste jogo. Ago- 
ra você pode comandar uma Nave Estelar da classe MSX T com todos os 
ra sores e sensores a tine tem direito. Sua missão é eliminar os perigosos 
ktingons antes que sua nave seja vaporizada ou fique sem energia. 

Esta versão do jogo Star Trek indui um mapa estelar completo e mo- 
vimentos em Atempo rc&r 1 durante os combates com o inimigo c quando 
a cave atraca em uma base estelar. Segue um extrato do mcgsmanual de 
32.544 páginas intitulado: +H A prenda ;i Comandar uma Nave Estelar em 
4JQ0Ü Lições 1 ": 

I Não perca a calma! Lembre-se de que tudo que tem 0 perder é; sua 
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vida, 20 bilhões de créditos galácticos em equipamento e as vidas de to- 
dos os Tripulantes da nave, 

2, Não voe ás eegas! Use os sensores da nave para verificar sua posição 
na galáxia. Apertando u tecla 1., vocc liga o Sensor de Longo Alcance 
(5 LA), que mostra a posição da sua nave, das bases estelares e das naves 
inimigas. Os setores ocupados por klingons são representados no SI .A por 
um circulo com uma flecha, o símbolo de Marte, deus da guerra. Os seto- 
res onde existem bases estelares são representados por um círculo com 
uma cruz, o símbolo de Vénus, a deusa do amor. Os setores ocupados 
tanto por inimigos conto por bases estelares são indicados por um qua- 
drado. Cada ve/ que vocc usa o sensor de longo alcance, você gasta 5 
unidades de energia do tipo usado para os motores, 

3, IN ao perca o inimigo de vlsm! Apertando a tecla C, você liga o Sensor 
de Curto Alcance (SCA), que índica quantos inimigos e bases es j ela r rs 
existem no setor em que vocc se encontra no momento. Cada vez que vo- 
cê liga o $C’A, são consumidas 5 unidades de energia do tipo usado para 
os motores, 

4, (uirihdu cm ri a falia de energia! Para reabastecer a nave, você deve 
atracar cm uma base estelar, apertando a tecla A no pamel de controle 
c usando o controle de direção para posicionar a base estelar uo centro 
da ida. Depois de atracar, você receberá 20 unidades de energia para os 
motores da nave e mais 20 para os fa sores (a energia da blindagem não 
pode scr reposta), A capacidade máxima c de 95 unidades, Não n Et rapas- 
se este limite, caso contrário a nave sofrerá uma explosão. 

5, Não perca tempo! Como comandante da Esquadra Estelar, sua mis 
são é destruir os perigosos klingons o mais depressa que puder. 

Se houver klingons no setor em que você se encontra, aperte a tecla 
P para fazer soar o sinal de Postos de Combate e dê início ao ataque. 
Coloque uma mivc inimiga no centro da tela, usando o controle de dire- 
ção (Joystick ou teclas de controle do cursor) e aperte o botão dc tiro ou 
a barra de espaço para disparar os f a sores, 

Se você não agir com rapidez suficiente, as naves dos klingons come- 
çarão a responder ao fogo, roubando energia da sua blindagem. Não de- 
sista! Procure "limpar” o setor antes de partir para outras batalhas. Caso, 
porém, a energia dos fasores se esgote, aperte a tecla RETURN para fu- 
gir do combate e poder se reabastecer em uma base, 

6, Como mudar de setor. Para viajai para qualquer setor, é preciso apertar 
a tecla W. seguida por um número entre I e 5, que indica o fator h 'warp T> 
nu distância que vocc deseja viajar. Etti seguida, é preeisn indicar a dire- 
ção do inovj mento, escolhendo um número entre I e 8. Cada número cor- 
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responde a uma. direção no espaço, começando no topo da Leia e 
continuando no sentido dos ponteiros do relógio. 

7. O d rs a fio .supremo. No inicio da missão* você escolhe o grau de difi- 
culdade. No nível mais fácil você tem que destruir 10 inimigos; no nível 
de dificuldade média, 20; no nível mais difícil, 30, Quando você conse 
_vul“ concluir unia missão com sucesso, a Central dc Controle dos klin- 
gons é informada e envia uma nova esquadra, com LO naves a mais que 
a anterior. O desafio supremo consiste em localizar e destruir 200 naves 
inimigas. Está preparado, capitão Kirk? Então pode começar,., 

J ,000 REM <<<< STAR TREK - ISSI >>>> 

1010 MAXFILES-2 : GF'EN M GRí 1 ; S FOR OUTPUT 
AS 1 

1020 SCREEN 1 : KEY ÜFF 
1030 RE ST ORE 3340 

1040 :FÜR N=0 TO 7l RE A D AsSS=S$+CH 

RS< A) : NEXT N 

1050 SPRITE* ( 1 ) =Sí 

1060 SS= itn ;F OR N=0 TO 7 s READ AíBS-SS+CH 

PS ( A) s NEXT N 

1070 SPRITESÍ2)=S* 

1030 Dl N S { 1 5 ? 2 ) 

1090 GOSUB 1790 

1100 BEEPsPLAY M Q3GL1604CLSFFFL 8ELI6C . O 
3A04D.I 4G" 

1110 GOSUB 1300 
1120 GOSUB 1500 
1130 GOTO 1250 
1140 AS= 1 NKK Vf 

1150 IF AS~" Jl THEN GOTO 11-10 
1160 AS-CHRStASC( A$) AND 223) 

1170 LIME ( 104 , 100) - { 248 , 148) ,Ò,BF 

1.1O0 1 1 A$="L rl THEN GOSUB 2030 

1190 IF ir G Ir ! HGN GOSUB 2170 

1200 IF A*~"W" THEN GOSUB 2250 

1210 IF A$="A" THEN GOSUB 2530 

1220 IF AS“ "P" THEN GOSUB 2820 s PUTSPRI T 

E 2 , (0,0) ,14,2 

1250 FOR N-i TG 20: NEXT N 



48 LrVra du jogos mi) MSX 


1240 IF DEAD-1 QR ENER<1 ÜR LNER=100 TH 
EN GOTO 1370 
1250 COLOR 15,13 

1260 LI NE ( 95, 156W 135, 191 ) , 13, BF 
1270 PRESET ( 95 , 160 > : PR INT 8i,ENER 
Í2Ô0 PRESET (95,170) :PRINT #1,SHIE 
1290 PRESET (95,100) sPRINT #1 * PH AS 
1300 LINE ( 215 s 1 56 ) “ í 275 , 191 ) * 13 , BF 
1310 PRESET (215,160) sPRINT #i,SEC 
1320 PRESET ( 215 ? 170 ) :PRI NT #1 , AL1EN-EM 
E 

1330 PRESET (215, 180 ) : PR I NT #Í,3-BD 
1340 IF ENE=ALIEN JHEN GOTO 3380 
1350 GOTO 1140 

1360 <<<< NAVE DESTRUÍDA »» 

1370 COLOR 10 P A ? 6:SCREEN 1 
1380 LDCATE 10 S E:PRINT "QUE PENA 

1390 LDCATE 9, 3 sPRINT " 

1400 IF ENER<1 THEN ficou â deriva 

e teve de" 

1410 IF ENER=100 THEN = " recebeu uma 
sobrecarga de" 

1420 IF DEAD-1 THEN foi destrui 

dâ pelos 1 " 1 

1430 LDCATE 2, 7 sPRINT "A Nave Estelar E 
nterpriae" 

1440 LDCATE 1,9:PRINT MS 

1450 IF ENER< 1 THEN MS=' r ser abandonad 
a, mas o" 

1460 IF ENER— 100 THEN MS^" energia e e>:p 
lodiu, mas o 11 

1 470 IF DFAD»1 THEN "demoníacos kl ir. 
gons,mas o" 

1480 LOCATE 2,iiíPRINT MS 

1490 LDCATE l , 13:PRÍNT "Almirante Yamas 

dita decidiu 11 

1500 LOCATE 2, 15 SPRINT "confiar-lhe o 
comando de" 

1510 LOCATE 5*17* PR INT "outra Nave Este 
1 ar . 
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1520 LOCATE 3, 2J sPRINT "APERTE PARA 

COMEÇAR M 

1530 A$= INKEY1* : IF A$=" 11 THEN GOTO 1530 
1540 A$=CHR$ ( ABC £ Aí ) AND 223) 

1550 IF A*0"C" THEN GOTO 1530 

1560 GOTO 1090 

1570 REM <<« TELA »» 

1580 SCREEM 2: COLOR H,1,1íCLB 
1570 L1NE (Í6 J l6)-íI76 s i4B),4,BF 
1600 LI NE (104,28 3 -(243,80) ,6,RF 
1610 LINE ( 104 ,100 ) — { 248 , 14Q ),6, BF 
1620 LINE (0,2)-(256, 14) ,14,BF 
1630 LINE (8, 156)^(256.191) , 13, BF 
1640 PRESET (200,18) sPRINT 4l,"SLA“ 

1650 PRESET (208, 90) :PRlNT *l !f ,í SCA" 

1660 COLOR 1 

1670 PRESET £ 55 ,4), 14 : PR I NT # 1 ? " * ALERTA 
VERMELHO*" 

1680 COLOR 15 

1690 PRESET (16,160) SPRINT #1, "MOTORES: 

■ I 

1 700 PRESET (16.170): PR INI # 1 , " BL I ND ASE 
M: " 

1710 PRESET ( 16 , 180) : PR I NT #1 , "FASDRES s 

II 

1720 PRESET ( 144,3 60 > :PRIMT #1 , lf SETOR s 11 
1730 PRESET (144,170) SPRINT #1 , " I NI III GO 
S: " 

1740 PRESET (144, 180) sPRINT 4 1 , M SASES ; " 

1750 PRESET (80,88) ,4: COLOR 10 

1760 PR INI #1 .CHRÍ £ 1 ) ;CHRÍ < 90 ) ;CHR$( I ) ; 

CHRS ( 82 ) :CHR*[1) ;CHRí(02) ;CHR^( 1) ;CHR*( 

91) 

1770 RETÜRN 

1780 REM <<<< DIFICULDADE >>>> 

1770 COLOR 15,4,41 8CREEN 1 
1800 PR INI "Fácil /Regular / DiT lei 1 7 11 
1810 A$= INKEY* s I F Aí="“ THEN GOTO 1810 
1820 A$=CHR$ ( ASC ( ) AND 223) 


F/J j L tvro de Jogos em MSX 


1930 II A*= lf D'‘ THt N Al E EN=20 : RETURN 
1340 M Aí = "F-“ THEN ALIEN— 10 : RETURN 
J.S50 IF AÍ="R" THEW AL I EN= 1 5 : RETURN 
1960 BOTO 1010 

1 í 1 70 R9M < < ■ INICIALIZAÇÃO > > > > 

1880 FOR II -1 TO 15iS(N,l)»0sSíN,21«0:NE 
XT N 

1090 FOR N-l TD ALÍEN 

1900 99 C- IMT ( RND ( -TIME ) #15n 1 ) 

1910 1F StSECj.iJíS FHEN GOTO 1900 

1920 3(SEC, l)=S(SEC,l ) < 1 

1930 NEXT N 

1940 FOR U=1 TO 3 

I9h0 PO= 1 N T ( RND ( 1 ) # 15) +1 

1960 IF S [ PO , 2 ) -i THEN GOTO 1950 

1970 3 ( PO n 2 ) =1 

1 900 NE XI N 

1990 PHF.5--25 : ENER=23 : SH I E-25 : BAD-0 : FML = 
0 : BD=0 

2000 SEC= I NT ( RND < 1 ) * 1 5 ) + 1 
2010 RETURM 

2020 REM <<<< SENSOR DE LONGO ALCANCE > 

>>> 

2 0 30 P L. . A V ' 1 1 O f: DF CDF " : PD=i 
2040 FOR N=i TQ 3 
2000 FOR M— 1 TD 5 

•lv Li PRI SE T ( iSá+NtO, 1B+N*ió) , 6 ; COLOR 1 

0 

2070 CH-71 j IF PO— SEC THEN CH=79:G0T0 21 
10 

2080 IF S(PO s l)>0 THEN CH=75 
2090 IF S ( Pü , 2 > = 1 THEN CIH=76 
2100 IF C.H-76 AND S(PQ,1)>0 THEN CH“72 

2 ,1 1 0 PR INI #1, CHR$ Cl); CHR* ( CH ) 

2120 RÜ=POH-l : NEXT M 

2130 NEXT N 

\M4PI ÍNTR-ENER 5: PLAY "EDO EDO" 

2150 RETURN 

2160 PEM •• SENSOR DE CURTO ALCANCE > 

>>> 
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217© PLAY "LSCDECDE" 

2160 COLOR 1 5 : PRESET (204,110) 

219© PR INI #l,GHRííl) |CHR$(75) | M a "5SCSE 
C,l) 

-, 220© PRESET (204,130) ,6 

'' J 22 1 0 PR I Ni # .1 , CHRí C i ) 5 CHR$ ( 7ó > ; " s " j S Ç.SE 
C,2) 

222© ENER=ENER~5i PLAY "EDCEDC " 

2230 RETURN 

2240 REM <<<< SALTO WARP >»> 

2250 LI NE (0,2) -(256, 14) ,12.BF 

2260 PRESET ( 16,4 ) *14=FRINT ttl/Tâtor W 

ãrp (1 a 5) ?" 

2270 A$=INKEY$ 

228© IF A*<"1" OR A*>"5" THEN GOTO 2270 
2290 D I S=VAL ( Aí } 

2300 LIME ( 0 , 2 ) “ í 256 ,14) , 10 , BF 

2310 COLOR 1 : PRESET ( 1 6 , 4 ) , 1 4 : PR 1 N i #1 , " 

Direção rio sfl 1 to (1 a 0) ? M 

2320 A$= INKEY$ 

2330 IF A*<"1" OR AS>"S" THEN GOTO 232 © 
2340 L I NE 1 184 , 2B ) - ( 248 , 00 ) BF 
2350 DR~ V AL ( A* ) 

2360 COLOR li 

23/0 I OR 0=6© TO 16 STEP -4 

2380 LI NE ( O , G ) - ( 192 - Q , 164-0 > , í NT ( RND í 1 

) W 1 5 ) , B 

2390 NEXT Q 

2400 RESTORE 251© 

2410 FOR N=1 TO DRlREAD XY 3 NEXT N 
2420 FOR N“1 TO DISsSECsSEC+XY 
2430 IF SEC< 1 THEN SEC=SEC+i5 
2440 IF SE015 THEN 5EC=SEC-15 
2450 PLAY H La M +CHRÍ CN+66) iNEXT N 
2460 FOR 0-60 TO Í6 STEP “4 
247© LINL (0,0) í 192 0,164-0) ,4, B 
2480 NEXT Q 

249© ENER-ENER-INT(DIS*1_5) 

250© LI NE (0,2) ~í 256, 14) , 14 , BF : RETURN 
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2bUÕ DAT A “5 j —4 ? 1 j £ * 5 * 4 „ — 1 , —6 
2520 REM <<<< ATRACAR >>>> 

25^(3 Lí NE (0 t 2)-(256 ? l4) S Í4,BF 

2540 PRESET (16,4) ? 14 2 COLOR 1 

2550 IF S { SEÇ ? 2 ) ^0 THEN PRINT #1 ? ' f N£o h 

á bíises neste se tor - . . M : PL A V "L2GEC Jr i RE 

tljrn 

2560 X=INT { RND ( — T I ME ) ¥ 100 ) +508 Y-1B: D IS= 
1 

2570 PUT SPRITE 1 , < X , I NT f Y ) ) , 1 1 , ,1 

2500 GO SUB 3250 

2590 IF RI 3=1 THEN DrS=DIS-i 

2600 IP LE“1 THEN DIS^DIS+1 

2610 Y=Y+. 5:X-X+UIS 

2620 IF X < 1 5 THEN X = 15 

2630 IF X >170 THEN X=170 

2640 IF V <9,5 THEN GOTO 2570 

2650 IF X>05 AND X < l 02 THEN GOTO 2720 

2660 IF X-.65 DR *>125 THEN PRESET (16 ? 4 

) , 1 4 : PR INF tt 1 , 11 A BASE ESTA FORA DE ftLCA 

NCE * j GOTO 2750 

2670 PRESET ( 16 „ 4 ) , 1 4 s PR I NT #l, E, VOCE DE 
STRÜIU A BABE ESTELAR?" 

26G0 PLAY "S10EDCC M 
2690 S ( SEC „ 2 ) =0 
2T00 BD=DD4 1 
2710 GOTO 2750 

2 720 PRESET ( 16 , 4 ) ? 1 4 s F'RlNT #1, ,J VQCE AT 
RACÜU NA BASE * . , *■ 

2730 E N E R = E NER+20 
2/40 FHAS=PHAS+20 
2750 FDP N= 1 TO 700:NEXT N ; BE.EP 
2760 ÍF ENER^95 OR PHAS>95 THEN ENER=10 
0 

2770 LINE (0,2)-(256 ? l4) ,14,BF 
27S0 PUT SPRITE i,(0,0),ii,l 
2790 RF TURN 

2800 REN <<<< rOHBATE >>>> 

2BI0 REM 
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2820 LI NE C0 í 2)-(25ò h i4) *14, BF 
2830 DEAD-G 
28 40 XD-2sYD-2 
2S5G COLOR 1 

2060 IF S t SFC „ 1 ) =0 THEN PRESET (i6 f 4) p l 
4 : RRINT #JL, H NfiO HA MAIS INIMIGOS AGIU I * Jl 
: PLAY "L4GEC 11 : RETURN 

2070 X=INT(RND(1)#X40)h303 Y-INT(RND(1 >* 
120) +30 

2880 GDSUB 3250 

2090 PUI SPR I TE 2 p ( X ? Y ) ,7,2 

2900 IF F 1 =1 AND PM AS ; 0 THEN GOTO 3130 

2910 IF K I L = 1 THEN 8 ( SEC , 1 ) -S ( SEC , 1 ) -1 i 

KIL-0 i GOTO 2S30 

2920 IF LE-i THEN XD=2 

2930 IF RI=1 THEN XD=-2 

2940 IF UP-i THEN YD=2 

2950 IF Dü=l THEN YD=-2 

2960 IF EX=1 THEN RETURN 

2970 X=X+XD JY=Y+YD 

29S0 IF X <20 THEN XD-2IB:XD“2 

2990 IF X> 165 THEN X=165:XD“-2 

3000 IF Y < 1 S THEN Y=18:YD=2 

3010 IF Y> 135 THEN Y=Í35:YD=2 

3020 IF RNDUK.95 THEN GOTO 3060 

3030 PLAY “S1402L4C" 

3040 FGR 11=1 TO SBrNEX V M : BEEP 

3050 E!H1E=GH.IG-1 s IF SHIE<0 THEN DEAD-1 : 

RETURN 

3060 LI NE [95 , 170) -( 135, 190) , 13, E)F s COLO 
R 15 

3070 PRESLT 195,170) SPRINT #Í,SHIE 
3080 PRESET (95, 180) sPRINT ttl,PHAS 
3090 LI NE { 21 5 , 170 ) - ( 275 , 1 79 ) , 1 3 , BF 
3100 PRESET (215,170) í PR INT #1 , ALIEN-EM 
E 

3110 GOTO 2880 

3120 REM <<<< ATIRAR >>>> 

3130 CDLDR 14 
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3140 PSET (16,148) sDRAW "E75" 

3150 PSET ( 176, 1 4B) :DRAW 
3 1 ti 0 l 'Lh i o J.-4 L... j 4UJ}Li ühj 
3170 POR N=i TP 50BNEXT N 
3180 PHAS=PHAS— 1 

-a 3190 n X>d6 AMD X <VU AND Y>64 AND Y<70 
THEN EME^EME+ 1 a K I L~ 1 : PLAY "Si 1L8CDEL2G 

li 

3200 COLOR 4 

3210 PSET { 16,148) :DRAW n E7D ,< 

3220 PSET ( 1 76 r 1 4 0 ) i DRAW " H7 5 ,r 
3230 BEEP : GOTO 2910 

3240 REM <<<< ENTRADA DE D A DOS ?>>> 

3250 VA-STICK(H) UR STICKÜJ OR 5TICK(2 

) 

3260 IF VA=3 THEN RI=i ELSE ftl-0 

3270 IF Vft=7 THEN LE™1 ELSE LL=0 

3280 IF Vft=l THEN UP=1 ELSE UP-0 

3290 IF VA— 5 THEN DO-1 ELSEDQ=0 

3300 F i = A BS ( G í H I G í 0 ) OR ST R I G ( 1 ) OR STR 

IGC2) ) 

3310 A+- 1 NKEY$ 

3320 ir A*mCHR*( 13) THEN EX-1 ELSE EX-0 
3330 RETORM 

3340 DATA 36 , 68 , 68 „ 63 , 56 , 16 , 124 „ 16 
3350 DA í A 1 5 ,3,5,121,1 56 , 136 ,136,112 
3360 GOTO 1140 

3370 REM «« FIM DA MISSfiO .»» 

3300 COLOR 10,6,6 ;BCREEN 1 

3370 PLAY "05CA+ , L10HAEFEL4D+ , " , "04ÇA+.L 

10AÜPEL4D+. 11 

3400 LOCATE 7, 2 = PR INT 11 BOM TRABALHO" 

3410 LÜCAIE 6 j, 3 : PR INI M — 

3420 LOCATE 2, 7: PR INI Capitão James T 
* Kirfci" 

3430 LOCATE l,9sPRINT "Agora vooê deve 
snfren tar ' 1 

3440 LOLA I L 0,11: PR 1 N I " um g r u po aind a 
mais numeroso" 


3450 LOCATE 1,13 sPRINT "dos didbò 1 iças 
k l ingans . * . " 

3460 LOCATE 7 ,21 : PE I NT " AF'ÈRTE ' R ' PARA 
RECOMEÇAR " 

3470 At=INKEYt: TF A$~ ,MÉ THEM GOTO 3470 
34S0 A*-CHR$ ( ASC f Aí ) ANO V.'03 ) 

3490 IF AÍC^R" THEN GDI Ü >4/0 
3500 AL I EN-ALlEN+10^ 

3510 GOTO 1110 


Super Breakout 



Üm Clássico dos Fliperamas 

Este jogo è recomendado para pessoas de todas as idades, Como c o me- 
nor programa do livro, lalvcz os novatos em programarão prefiram co- 
meçar por ele, 

No início, o computador pergunta a você se prefere usar uma raque- 
te grande ou pequena. Então, o jogo começa. O objetivo é d í min ar todos 
Os blocos coloridos, atingindo-os com uma boia. Para movimentar a ra- 
quete, você usa o joystick ou as teclas de eonirok do cursor. O importan- 
te é prever a trajetória da boia e movimentar a raquete de forma a impedir 
que a bola atinja a base du tda. 

Se você perder uma bola, o computado? Ibe fornecerá mais três an- 
tes de o jogo acabar. No final, a computador mostra o número de blocos 
que você conseguiu destruir. 
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1000 REM <«< SUPER UREAKPUT - BOGTSY > 

>>> 

1010 SGREEN 1,0,0: COLOR Í5 5 0,0;CLS 
1020 KEY QFF 

1030 DN SPR I TE GO SUB 1490:5RRITE ON 
1040 CLSíLOCATE 0 fl i0:PRlNT ■Raquete Peq 
uerid uLi Grande ? H ; ; 1 INPUT$ ( 1 ) 

1050 SZ«0:IF í$*f É g n QR THEN 5Z=2 

1060 SCREEN , SZ : CLS 

1070 LM=240~(16 AND SZ=3 ) : X-120- ( 8 AND 
S2>0) 

1080 RE5TÜRE:SC=0:LI =5; GOSUB 1630 
1090 GOSUB 1200 


1100 CT-0 
1110 B=10G 

1120 C-1NT(RNDÍ TIME ) *2 ) 

1130 C=C+INT(RND( -rXMF3#30)+16 

1140 UD=5: AD=--5 

1150 GOSUB 1270 

1160 GOSUB 1350 

1170 IF CT -280 THEN GOTO 1090 

1180 GOTO 1150 

1190 REM <<<<< TELA >>>>> 

1200 LOCATE 0 P 0 

1210 FOR N-216 TO 248 STEP 8 

1220 PRÍNT STRIN8«t20 ? CNRSíN) ) 

1230 PRINT GTRINGitCSBjiCHRf (N) ) 

1 240 NEXT N 
1250 RETURN 

1260 REM <•■::<< MOVIMENTO DA RAQUETE >>>> 
1270 ST=STICK(0) OR STICK(l) DR STICK(2 

1280 T8-5TRIGÍ0) OR STRlGfl) OR STRIfâ<2 

) 

1290 I I NKEYí 

1300 ÍF ST=7 AND X>4 THEN X^X-4 
1310 IF ST -3 AND X<LM THEN X = X+4 
1320 PUT SPRITE 0 , ( X, ISO ) ,15,0 
1330 RETURN 
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1340 REM ■■:<<< MOVIMENTO DA BOLA >>» 

1350 A 1~C : Bl = Lt 

1360 A1=AI i Aü : Bi -Bl+BD 

1370 IF Al <16 THEN Al = 1 6 s AD-— AD : PL A V "t 
255c 16" 

1 380 IF Ai. ,240 THEN Al =2 40 ; AD--AD i PLAV 
M t255eló" 

1390 TF B 1<0 THEN Dl = l 

1400 IF Bi >190 THEN GOTO 1520 

1410 CF=í,HlB00+( INT( B/8) *32+0/8) 

1420 CH“VPEEK ( CF ) 

1,430 IF CH<>32 THEN VPOKE CP , 32 : BEEPí SC 
”3C+ 1 0 ; BD*”BD : CT-CT + 1 

1440 IF Bl^O THEN BD=ABS ( BD ) : PLAY" t255c 
16" 

1450 C=0-i ADs B-B+BD 

1460 IF ( 240-B ) / iíKBD THEN BD-BD-1 

1470 PUT SP RI TE 1, í C, B) , 15, 1 

14S0 RETÜRN 

1490 Bi: T F : RD“-ABS £ BD ) 

1.500 GOTO 1450 

15 10 REM <t« PERDE V 1 DA »» 

-1520 PLAY 11 t255116edr " 

1 530 L I -L I -1 : IF L. í :■ 0 THEN RET URN 1 1 1 0 
1540 REM <<<< FIN DO JOGO >>» 

1550 CLS:PUT SPRITE 0 s ( 255, 20B ) „ 0 „ 0 
1560 LOCA TE 10 , 7 :PRI NT "PARABÉNS" 

1570 LOCATE 4 , 11 SPRINT «Você fez" ;SCs"P 
0NTQ5" 

1500 LQÇATE 5 , 1 7 : FR I NT "Quer joqar de n 
OVO ?" ; SÍ*i-INPUr*(JU 

1590 IF OR I$="s M THEN ftETURN 10 

40 

1600 IF AND THEN 1580 

1610 SCREEN 0 : END 

1620 REM • : DEFINIU AU DOS SPRITES »> 

> 

1630 BOSLIÍJ 170B:SPRITE* í 0 ) -SF'$ : GQSUB 17 
00 : SPR I TE* £ 1 ) -SP* 
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1640 FOR W=1720 rO 1904 5TEP 64sRESTORF 

1800 s FOR M-0 TG 7 

1650 READ HfciVPDFE N+M , VAL ( ,l 6h" +H* ) 

1660 NEXT M , N 

1670 FOR N“Í;H201B TD &H201F 

1680 READ Hf sVPOKE N , VAL { *' &h )i 

1690 NEXT NiRETURN 

1700 SP*-"" íFOR N— 1 TO 32: READ HííSF$=S 
P í +CHR$ ( VAL { 11 &h " +HH ) ) : NE X T N : FETURN 
1710 RF0 <<<< DADOS >>>> 

1720 DATA ff 0,0,0, 0,0 

1730 DATA 0,0, 0.0. 0,0, 0,0 

1740 DATA ff, ff,! f, 0,0, 0,0,0 

1750 DATA 050,0,0,0,0,0,0 

1760 DATA f0,f0„f0, 10^0,0,0,0 

1770 DATA 0,0,0, ©,0,050,0 

1760 DATA 0,0,0^ 0,0, 0,0,0 

1790 DAT A0* 0,0, 0,0, 0,0,0 

1300 DATA 0, /f , 7f , 7f ,7f ,7f ,7f ,7f 

1310 DATA 80,90, a0, 20,40 


6 

Labirinto 



Um Jogo Trídimensionai 


Lste É um jogo passado cm tim labirinto tridimensional no qual você tem 
uma vis la cm perspectiva do espaçe? à. sua volta, O objetivo é encontrar 
rapidamente a saida. Se conseguir o seu intento, escapará do louco que 
habita □ labirinto. Se não, ele pecará você! 

A figura que aparece na tf la mostra apenas uma parte do lahirmío. 
Uma seta indica a direção para a qual você está voltado no momento. 
Para mudar de direção, use as teclas de controle do cursor da direita e 
da esquerda. A tecla de cima faz você dar um passo à frente cada vez 
que é apertada. A tecla de baixo faz você recuar um passo, sem mudar 
de direção. Os movimentos também podem ser controlados através de um 
joystick . 
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Depois que você consegue chegar ao final do labirinto, o limite de 
tempo c reduzido ç o jogo começa de novo, 

O jogo utiliza uma técnica sofisticada, baseada nos ponteiros de co- 
res do MSX t para conseguir uma mudança rápida das imagens. Vaie a 
pena estudar esta técnica com atenção, pois você poderá usá-la para con- 
seguir efeitos de alta velocidade cm seus próprios programas. 

1000 REM <<<-< LABIRINTO - BOOTSY >>>’> 

1010 REM 

1020 SCREEN l ? ,0íCLEAR 500,&HEEFF 
1030 DEFUSR=&HEF00:KEY OFFrWIDTH 32 
.1040 ON I NTERVAL-50 GOSUB 1230 
1050 D IN SíUi) r CSf 13) ,W7.( 18,2,1) ? M/.(9 f 
9 > f MT % í 9 , 9 ) s TT7=400 

1060 LÜCATE 13,11; PR 1 NT “ESPERE" s GOSUB 
2040 

1070 GOSUB 1760 : GOSUB 11S0 : { N 1 ERVAL ON 
1000 GÜSUfí 1430 
1090 I$=INKEY$ :FOR I 7.-0 TO 2 
1100 IP7.=STICKf 17,) 3 IF IPX THEN 17-2 
1110 NE X T IX l IF I F7.=0 THEN 1090 
1120 IF IF7.= 1 AND M7(X7.,Y7)-2 THEN GOTO 
1320 

1130 IF IPX=1 AND YX<9 THEN IF M7. ( XX , Y7. 

+1)>0 THEN YX=YX+1 : GOSUB 1100 

1140 IF IPV_— 5 AND YY.>0 THEN IF HX(X3£,YX 

-1)>0 THEN YX^YX— 1 : GOSUB 1100 

1150 IF IPX»3 THEN SP7.= ( SPV. + l ) AND 3sGG 

SUB 1180 : GOSUB 1560 

1160 I F I PX- 7 THE N SP7.« ( SPX-1 ) AND 3 : GD 
SUB 1180 5 GOSUB 1610 
1170 GOTO 1080 

1180 IF I F7.=3 OR I F7.=7 THEN 1210 
1190 XSX-XSX+Í3 AND ( IP7.=1 AND SP7.=1 OR 
I P7.=5 AND SFX=3))-(3 AND í IP%~5 AND SP 
7=1 OR IP7.= i AND 8 F 7.-3) ) 

1200 ¥SX-YS%+(3 AND ( IP7.=1 AND SPX-2 OR 
IPX— 5 AND 5PX— 0 ) ) “ ( 3 AND ( IP7=5 AND SP 
7=2 OR IPX=i AND SPX-0)} 

1210 PUT SFRIÍL 0 , ( XS7. , YSX ) , 4 , BP7. : RR j UR 
N 
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1220 REM <<<< RELQGIO >>>> 

1230 TMV.-TM 7 .+I íLDCATE 23 a 22 sPRINT USING 

"### 8 " ; TM 7 - 

1240 IF TM 7 *<TT 7 - THE H RETURN 
1250 REM «« FIM DO JOGO >>>> 

1260 INTÊRVAL DFF 

12 70 CLÜ : LOCATE 9 , 1 1 

12 B 0 PRINT "TARDE DEMAIS! " 

1290 LOCATE 6 , 13 : PRINT "0 LOUCO PEGOU V 
OCE ! " 

1300 RETURN 1380 

1310 REM <<<< SAIDA >»> 

1320 CLSsIMTERVAL OFF : COLOR 15 

1 3 3 0 LOCATE 11*115 PRINT fl MU I T O RE M f " : PR 

INT 

1340 PRINT " CONSEGUIU SAIR DD LAB I RI N 
TO! " 

1350 LOC ATE 5,15 

1360 f-RLNT "VO CE LEVOU" \ TM"/. ; 11 SEGUNDOS " 
1370 IF TT 17 ,<TT 7 . THEN TT 7 ,=TM 7 . 

1380 PUT SPRITE 0 , ( 12 S , 208 ) , 4 , 0 

1390 LOC A TE 3 ? 20; PR INT M QUER JOGAR DE N 

OVD ÉS/N)?" 

1400 A*= 1 NPUT$( 1 ) : IF AH^S" 0 R A$- " s 11 T 
HEM GOTO 1070 

1410 IF A®= "N" OR Aít=" n " THEN SCREEN 0 : 
COLOR lS ? 4 f 45 STOP ELSE 1390 
1420 REM < < < <. GERAR PERSPECTIVA >>>> 
1430 FOR W 7.=2 TO 0 STEP -1 sV 7 .*=YX+ 3 -WX 
1440 IF V 7-10 THEN GQSUB 1690 : KY-=U| 7 - :UJX- 
0 

1450 ir V 7 , < 10 THEN IF M 7 . { X 7 ., V 7 . ) =0 THEN 
GQSUB 1 690 : K Y.-WV. : W 7.=0 

1460 NE XT WY. : O 7 .= 0 : I F M 7 .{ X 7 ., YX+ 2 -KX ) ~2 T 
HEN 07 - 1 : W 7 .=K 7 . : GQSUB 1 690 
14/0 11 X 7*=9 THEN FOR D 7.=3 TO 1 +K 7 - STEP 

-i : OCX =0 : GQSUB 710 :NEXT DXsGOTO 1510 
14 G 0 V 7 .= 0 :FGR D 7.“3 TD 1 +K 7 . STEP - 1 :DC 7 .= 
0 
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1 490 1 F r-17. ( X X+ 1 , YX + VX > > 0 THEN OCX- 1 
1500 GQSUB 17Í0;VX-VX+1 :NLX1 DX 
1510 JF XX=B THEN I UH D7.=6 TO 4+KX STEF 
-1 :GC7_=0:GOSUb 1/10:NEXT DXíGOTD 1540 
1520 V7.=B;FOR DX-6 TO 4+KX STEF -i:DCX= 
0 s I F MX ( XX“"1 „ YX+VX ) >0 FHEN UCV.=1 
1 550 BOSÜB 1710: VX=VX i 1 ; MLX 1 DX 
1540 RETURN 

1550 RFM <<<< VIRAR A DIREITA >>» 

1560 FOR I7,=0 TO 9; FOR J7.=0 TO 9 
1570 MT 7. ( JX , I X ) -M7, (17., 9 - J X ) 

L5R0 NFX1 JX, I“4 

1590 5WAF XX, YX :XX=9-XXiG0T0 1650 
1600 REM <<<< VIRAR A EGGULRDA »> 

1610 FOR 1 7.-0 TO 9: FOR JX“0 TO 9 
1620 MTX( J7.,9 IX)-MX( IX, JX) 

1630 NE XI J X , Z a 

1640 SWAP XX s YX : YX=9-Y7. 

1650 FOR rX-0 TO 9: FOR JX=0 TO 9 
1 660 riX ( J X , I X > ~ MT 7* ( JX , I X > 

1670 NEX T J X , I X : RE TURIM 

16P0 REM «« DESENHAR PARF Dt >>>> 

1690 A=U5R í VARPTR { WX ( 0 , WX, DX ) ) ) : RETURN 
1700 REH <<■<< DESENHAR PORTA >>>> 

1710 C1X=0:C2#=12B (32 ANDEDX“2 OR D 7.-5 
) ) 

1720 I X = 8204+ DX : J 7. = 8 2 1 0 + DX 

1730 IF OCX THT N VRüKE IX*ClXsVPDhE JX, 

C2'X LL ■: iL. L 1 X= 144: C2X-C1 X : OCX- 1 : GOTO 1 73 

0 

1740 RETURN 

1750 REM <<<< TELA >>>> 

1760 RESTDRE 2510 : O7.=0 : 5FX“1 1 TMX-0 : XSX= 
113 : YSX=156 

1770 FOR IX» 0 TO 9: FOR JX*=0 TO 9 
1700 RE AD MX ( i X , J X ) 

1 790 NE X T 3 X , 1 7. : X X=0 í YV.-0 
1800 COLOR 0,0,0; Cl S 
1810 Rf STORE 2620 
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1820 GQSUB 2010 s FOR IX-0 Tü 11 
1830 L QCATE 0, IV.: FOR JX=1 TO 16 
1840 K7.=A6CÍN1D$ÍS*Í IV. ) , JX,1) ) 

1850 F'R I NT C$ [ K'4 ) ; ; NE X T J 7. , I V. 

1860 GOSUB 2010: FOR 1 7.^0 TD 11 

1870 LOCATE 16 S I7.:FDR JX=16 Tü 1 STEP - 

1 

1 SB0 KX=ASC ( MI D$ í 3$ í I X ) , J 7* , 1 ) ) 

1890 PRINT CS(KX) j sNEXT JX, 17. 

1900 GOSUB 2010: FDR IX=11 [0 0 STEP -1 

1910 LGCATE 0 , 23— IX : FOR JX=i Tü 16 
1 920 K X=ABC ( M I D$ ( ST ( I V. ) , J V. , 1 ) } 

1 930 PRINT C* { KV, ) ü : NE X T J V. , I % 

1940 BOSUF-r 2010; FÜR 17,-11 TD 0 STEP -1 
1950 LPCATE 16, 23-1 V_: FDR J 7.-1 6 Tü 1 STE 
P "1 

1960 K7,=ASC ( M I D$ ( 5$ £ 1 7- > , JX , 1 ) ) 

1970 PRINT C*í KV.) - : NEXT J X , I V* 

1980 LDCATE 5 ,21: COLOR 15 sPRINT ,l LlHITE 
11 TABÍ23) E ‘ TEMPO 11 
1990 PR I NT *TAB ( 6 ) ; TT7. 

2000 rorroRN 

2010 FOR 1 7i“l TO 13: READ KX iC*í IX ) -CHR* 
í KV* ) í NEXT IV. 

2020 RETURN 

2030 RI M <<<< DEFINIR FORNAS »» 

2040 FOR 1 7.-B32 Tü 1904 STEP 64 
2050 FOR JX-0 TO 7 

2060 KX=256-2" { 7-JX ) : LX=2 A ( JX+i ) -1 
2070 H7,= 2"^ í B- JX ) -1 : N X = 2 56 - 2 A J % 

2080 VPOKE IX+JXp255 * VPOKE I X+ JV.+tí , KV* 
2090 VPOKE JX+JX+ió , LX í VPOKE I7.+J7.+24,M 
X 

2100 Ví ÜKf ! V.+JV.H 32 , NV_ : VPDKE IX+JX+4GJ.0 
2110 NEXT JX,IX 

2120 FOR IX-0 TD llsFQR J7.= l TO 16 
2 1 30 RE AD KX : S* ( I % ) =S$ (IX) +CHRÍ ( KV- ) 

2140 NEXT JX, IX 

21 50 FOR I V.-B Tü 1 s FOR JX=0 TO 2: FOR KV. 
=0 TO 10 
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2160 READ W7.( K7. , J7. s 17. > í NE XT KV . , J 7. , 1 7. 
2170 Füft 1 7.-0 TO 3: S$— H " :FQR ÜV.=0 TO 7 
2180 READ K7_3SS=SÍ+CHRSÍKX> eNEXT J7. 

2190 SPPflTÊíUV. )=SÍsNEXT 17. 

2200 I7.=Í<HEF00 

2210 READ H$;IF THEN RETURN 

2220 POKE I% f VAL( 1i ®ch"+H»J 
2230 I Y.—I %+ 1 : GOTO 2210 
2240 RE li <<<< DADOS >>>> 

2250 DATA 8,1, 1,1, 1,1, 1,1, 1» 1,1,1, 1,1,1 
í ^ 

2260 DATA 9,8, 1,1, 1.1, 1,1, 1,1, 1,1, 1,1,1 

i ^ 

2270 DATA 9, 9, 8,1, 1,1, 1,1, 1,1, 1,1,1, 1,1 

,1 

2200 DATA 9, 9,9,8, 1,1,1, 1,1, 1,1,1, 1,1,1 

ii 

2290 DATA 5,5,5,5,10,2,2,2,2,2,2,2,2,2, 

2,2 

2300 DATA 5, 5,5*5,11, 10 ,2,2 5( 2*2, 2,2, 2,2 

, 2,2 

2310 DATA 5,5,5,5,11,11,10,2,2,2,2,2,2, 

2 , 2,2 

2320 DATA 5,5,5,5,6,6,6,12,3,3,3,3,3,3. 
3,3 

2330 DATA 5 s 5 „ 5 , 5 , 6 , 6 , 6, 13 , 12 , 3 , 3 , 3 , Z , 3 
,3,3 

2340 DATA 5, 5, 5, 5, 6,6, 6, 7, 7,4, 4, 4, 4, 4.4 

»4 

2350 DATA 5, 5, 5, 5,6, 6, 6, 7,7, 4, 4, 4, 4, 4, 4 

,4 

2360 DATA 5,5, 5, 5, 6, 6, 6,7, 7, 4, 4, 4, 4, 4, 4 
,4 

2370 DATA 144,144,144,144,144,144,144.1 

44 . 144. 144 . 144 . 144 .0. 0.0.0.0.0.96 

230© DATA 102 ,144,144,1 02 . 144 ,144, 96 , 1 4 

4. 144.96. 144 . 144 .6.0. 0.6.0.0.96 

2390 DATA 102 , 102 , 144 , 102 , 102 , 144 ,96 ,96 
y 144 , 96 , 96 , 144 ,6,6, 0,6, 6,0* 96 
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2400 DAT A 144,144,144, i 44 „ 144 , 1 44 ,144,1 
44 ,144, 144 , 144,144,0,0,0,0,0,0,0 
24 10 DATA 0, 1 44 , 144, 0 f 144, 144 ,0, 144 t 144 
,0,144,144.0.0,0,0.0,0.0 

2420 DATA 0,0,144.0,0,144,0,0,144,0,0,1 

44,0,0,0.0,0,0,0 

2430 RPM <<<< SETA >>>> 

2440 DATA 16,50,68,130*16,10,16,16 
2450 DATA 8,4,2,255,2,4,8.0 
2460 DATA 16, 16, 16 , 16, 130 ? 60 r 56, 16 
2470 DATA 1 6 , .32 , 64 , 255 , 64 , 32 g 16 , 0 
7400 REM ■ <<< PROGRAMA >>» 

2490 DATA 23 , 23 , 5e, 23 , 76 , 2 1 , d , 20 , cd , 53 , 
0 , e3 , e3 , eb , 6 , 13 , 7e , d 3 , 90 , 23 , 23 , 10 , f 9 , c9 


, K 

2500 REM <<<< LABIRINTO »>> 

2510 DATA 1 , 1 , 1 , 0, li, 1 , 1 ,0 , 1 , l 
2520 DATA 1 , 0 . 1 , l\ 1 , JZh, 1 , 1 , l , 0 
2330 DATA 1 , 1 , 0 , 1 , 0 , t , 1 , 0 , 1 , 1 
2540 DAI A 0.1. 0,1, 1,1, 0,0. 0,1 
2550 DATA 1,1, 1,0, 0,0,1, 1,1,0 
2560 DATA 0,0, 1,0, 1,1,1, 0,1,0 
2570 DATA 1 , 1 * 1 , 0 , 0 , i , 0 , 1, 1 *1 
2580 DATA 1.0, 0,1, 1,1, 0,1, 0,1 
2590 DATA 1 , l , 1 , 0 , .1 , 0 , l , l , t ,0 
■ '600 DATA 0,0, 1,1, 1,0, 1,0,1, 2 
2610 REM < < T CARACTERES GRÁFICOS >>>> 

2 620 DATA 24 5 ,237 , 2V '9 , 24B , 1 92 , 1S4 ,176*1 
45,144 , 137 , 136,129, 12B 

2630 DATA 245*237,229,248,168,160,152,1 
22, 120 , 114 , 112,106, 104 


2640 DATA 221,213,205,248, 
48,144,140,136,132,128 
2650 DATA 221*213,205,248, 
23 , 120 .115,112, 107 , Ip4 


' 92, .184, 176, i 
168,160,152,1 


7 

Damas 
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A idéia (' muito simples: você deve acabar com as peças do adversário 
saltando sobre elas com as suas próprias peças. Para poder executar o 
salTO, ê preciso Que haja uma casa va nu tio outro lado da peça adversária. 

Para movimentai uma peça, basta entrar com uma letra para indicar 
a coluna em que a peça se encontra e um número para indicar a tinha. 
Em seguida* y casa para onde a peça vai deve ver indicada da mesma fornia. 

Quando não é possível saltar sobre nenhuma peça adversária, uma 
das peças deve ser movimentada para uma casa vizinha da mesma cor. 
Quando uma peça atinge a extremidade oposta do tabuleiro, ela se trans- 
forma em uma dama. As damas podem andar para iras e são, portanto, 
peças mais iuiport antes tjue as peças comuns (Giesta versão do jogo, nu 
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contrário da versão mais conhecida, as damas não podem andar mais de 
uma casa de cada vez). 

Algumas pessoas usam uma regra um pouco diferente. Em vez de 
exigirem que o jogador tome uma peça do adversário sempre que isso for 
possível T estabelecem que o jogador perca essa peça caso execute uma jo- 
gada normal de deslocamento com outra de suas peças. Esta penalidade 
è chamada de “soprar” a peça adversária. 

Nesta versão para o MSX, o programa se recusa a aceitar uma joga- 
da normal quando hâ uma peça do adversário que possa ser tomada. O 
computador continua a mostrar que é a ver. do mesmo jogador até que 
ele execute uma jogada de salto. 


1 '.V 1 "'! 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1090 
1090 
1100 
1110 
1120 
1130 
1140 
1I5W 
I 

1160 

ò 

1170 
1 1B0 
1190 
1200 
1210 
1220 
1220 
.1 240 
1250 


REM <<<< DAMAS ~ 1SSI >>>> 

SCtttEN 1,0,0 
OLEAR 2000 
KEY OFF 
RE5T0RE 

FOR CH-192 TO 199 
EDR N=0 TU 7 
READ B 

IF O-K190 THEN XÜR 255 

UPUKE 0KCH+N f D 
NEXT N 

NEXT CH 

VPOKE &H2016 ,31 : VPOKE &H2017 , 31 
OQTÜ 1350 

REM 

DATA 255 , 255 , 255 , 255 , 240 , 143 , 127 ,3 

DATA 255 , 255 , 255,255 ,15,241 , 254 , 20 

DATA 66, B0, 35, 8b, 133, 240 ,255 ,25b 
DATA 194 , 30 ,226,30 . 241 , 15, 255,255 
DATA 255 ,255 , 255 , 255 , 240, 128 ,0,0 
DATA 255 , 255 ,255,255 , 15 , 1,0, 48 
DAI A 67,00,35,85,133,240,255,255 
DATA 194, 28,224, 0,1, 15,235, 233 
REM 

DATA 0,1,9,07,99,118,125,255 
DATA 0 , 128 ,144, 234 , 198 , 110 , 58 * 187 
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1260 DATA 0,1,9,36,98,00,69,120 
1270 DATA 0 , 129 ,144, 106 , 70 , 106 , 26 , 1 
1280 DATA 0,0,15,16*32,33,36,36 
1290 DATA 0,0, 240 ,8,4, 196 , 36 , 36 
1300 DATA 36 , 36 , 35 , 32 ,16*15,0,0 
1310 DATA 36,36,196,4,8,240,0,0 
1320 DATA 0,0,255,0,0,255,0,0 
1330 DATA 36 , 36 , 36 , 36 , 36 , 36 , 36 , 36 

1340 REM — — — , — , - 

1350 CLSrGDSUH 2080 
1360 FOR N=1 TO 100 
1370 Z*(N,Í)- ,f » 

1380 Z*(M,2)- N »■ 

1390 NEXT N 
1400 DIM C ( 9 , 8 ) 

1410 GDSÜE 1740 

1420 GÜ5UD 2120 : GOSÜE 2290 

1430 LGCATE 5, 19 SPRINT STRING$(i4, n 11 ) 

1440 LOCATE 5,20iPRINT STR E NG* { 14 , " '■ ) 

1450 COU=l 

1460 GOTO 1600 

1470 GAM=0 

1480 FOR N"1 TO Q 

1490 FOR M=1 TQ 0 

1500 IF M*(N,M)="B ,r DR M* ( M , N )-'* D 11 THEN 
GAM=1 

1510 NEXT M : NEXT M 

1520 IF GAM=0 THEN GOTO 1630 

1530 SAM=0 

1540 FOR N=1 TO 8 

1550 FOR M=i TO 8 

1560 IF OR ( M , N J = "C M THEN 

GAN=1 

1570 NEXT NsNEXT N 

1580 IF GAM-0 THEN GOTO 1670 

1590 RETURN 

1600 GOSUB 3550 

1610 GOTO 1600 

1620 REM <<<< PRETAS VENCEM >>>> 
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1630 CLS 

1640 LOCA I L 4,9; PR I NT " AB PRETAS VENCER 
AM Jf 

1650 GOTO 1690 

1660 REM «<< BRANCAS VENCEM »>> 

1670 CL5 

1660 LOCATE 4 ,9 SPRINT "AB BRANCAS VENCE 
RAM " 

1690 PLAY " L8C DEF GCDE F G 11 

1700 LOCATE 1,23 sPRINT "Quer jogar de n 
qvq ( S/N > 7 rt 

1/10 A**lNPUT*tD :A$=CHR*(ASC(A$) AND 2 

23) 

1720 IF A$- r, S" THEN RUN ELBE SCREEN 0:S 

TOP 

1730 REM <<<< TELA »» 

1740 COLOR 15,4,4 

1750 FDR A-0 TO 7:VRDKE B*2I4-t-A , 255 í NEX 
T A 

1760 FOR Y=2 TD 17 STEP 4 

1770 FOR X=2 TO 17 STEP 4 

1780 LOCATE X,Y sPRINT CHR* ( 214 M CHRS ( 21 

4 

1790 LOCATE X,Y+1ePR1NT CHR*Í 214 ) 5 CHRS ( 
214) j " " 

1800 LOCATE X , Y+2 ; PRINT ,f " ; CHR* ( 214 ) ; 
CHR$(214> 

1010 LOCATE X,Y+3 sPRINT " " ; CHR$ ( 214 ) ; 

CHR$ (214 ) 

1820 C( X/2, Y/2) =1 íCC X/2+1, Y/2+1 )-l 

1830 0< X/2, Y/2+1 H0;C(X/2+l , Y/2+1 )“1 

1640 NE X T X 

1850 NEXT Y 

1860 FOR X“2 TO 17 

1 870 LOCATE X s i : PR I NT CHR$ C 198 ) 

' 1880 LOCATE X , 1B : PR l NT CHRÍÍ198) 

1890 NEXT X 

1900 FOR Y=2 TO 17 

1910 LOCATE IjYaPRINI CHR*(199) 
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1920 LOCATE 1 8 .,Y sPRINT CHRM199) 

1930 NEXT V 

1940 LOCATE 1,1: PR INI CHR*{ 194) 

1950 LOCATE 18,, I SPRINT CHR^(195) 

1960 LOCATE 1,18: PRINT CHfi*{196) 

1970 LOCATE 18,18: PRINT CHR*U97) 

1930 FOR Y=2 TO 16 STEP 2 
1990 LÜCATr YjCüsPRINT CHR* ( ( V /2 ) +96 ) 
2000 LOCATE 19, Y : PRINT CHR$ ( 43+9- Y/2 ) 
2010 NEXT Y 

2020 LOCATE 2i , 0 ; PR 3 NT " DAMAS 11 
2030 1 OC ATE 21,1: PRINT *«====»=” 

2040 LOCATE 21, 6: PRINT "D& ; ■' 

2050 LOCATE 21 „ 9 1 PRINT " Para j '* 

2060 RETURN 

2070 REM <<<< INICIALIZAÇBO >>» 

20S0 DIM J1*(3,3) 

2090 Dl M Z*í 100,2) 

2100 RETURN 

2110 REM <<<< INICIO DO JOGO >>>> 

2120 FOR N-l TO B 
2130 FOR H=1 TO 3 
2140 MSÉ N, N) = "0 1 ' 

2150 XMN,IÍ)="0" 

2160 NEXT H 
2170 NEXT N 

2130 FOR N-l TO 3 3TEP 2 
2190 m(i,N+i)«"A" 

2200 M$(2,N)="A" 

2210 NíC3 h N+i)= ,l A ,r 
2220 MS( S ,N)="fi" 

2230 lí* E7 ,N+1 )~"R" 

2240 = 

2250 NEXT N 
2260 RETURN 

2270 REM <<<< DESENHAR PEÇAS >:;>> 

2230 X“2:Y=2 
2290 FOR N=1 TO 3 
2300 FOR M— 1 TO 8 
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2310 C*=M*( N,M) 

2320 IE C*= l, 0 M THEN 2350 

2330 LOCATE X,Y 

2340 GOSLIB 2410 

2350 X = X 2 

2360 NEXT h 

2370 X“2 : Y=Y+2 

2380 NEXT N 

2390 RETÜRN 

2400 REM <<<< PEÇA »>> 

2410 LOCATE X ,Y 

2420 D*-CHR4(182)+CHR$t 193 > : D1*-CHR* < 18 
4J+CHR*(1S5> 

2430 IF C*«"B" THEN D$-CHR$ ( 1S6 ) +CHR$ ( 1 
87) sDi*-CHR* { 188) +CHR$( 189) 

2440 1F C*«*C" THEN Dí =*CHR*( 192 ) +CHRÍ ( 1 

93) 

2450 IF C$="D" THEN D$=CHR$ £ 190 ) +CHR4 ( 1 
91 ) íDi*-CHR'i{ 108 ) +CHR*( 139) 

2460 IF C^^"0 ,í THEN DÍ= M " íDIS- 11 
2470 PR1NT D$; 

2480 LOCATE X,Y+1 
2490 PRINT Di$ ; 

2500 RETURN 

2510 REH <X<< ENTRADA DE DADOS >>>> 

2520 LOCATE 2l p 3:IF PLA=1 THEN PRINT "E 
RANÇAS" ELSE PRINT "PRETAS " 

2530 LOCATE 26, è: PRINT 11 " 

2540 LOCATE 26,0:PRINT " 

2550 LOCATE 26,6 
2560 GOSUB 2620 
2570 F$=N* 

2580 LOCATE 26, Q 
2590 GOSÜB 2620 
2600 

2610 RETÜRN 
2620 N*= ,,M 

2630 A*=1NKEY*:IF Afc= ,,,T THEN GOTO 2630 
2640 A$“CHR$ ( ASCC Aí ) AND 223) 
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2650 IF A* < " A " OR AfcVH" THEN 2630 
2660 PLAY " LSC *' : N$=A$ ; PR I NT NS ; 

2670 AÍ=INKEYÍ 

2680 IF DR A*> J, 9 M THEN 2670 

2690 PLAY < l LBF" :NÍ=Ní+ AS SPRINT Aí; 

2700 LOCATE 2 * 22 SPRINT 5TRINGÍ ( 16,32) 
27X0 RETURN 

2720 REM <<<< MOVIMENTO >>>> 

2730 GOSUB 2950 

2740 RO=SI s NOS : GOSUD 2820 

2750 MÍ(5i,S)=m tFljF) 

2760 IF 51=1 AND MM 1 * S ) = " B 11 THEN MM M 
S) = "D 11 :HUFF-0 

2770 IF 51=0 AND M$( B P S ) ■=*’ A" THEN MMB, 
S)“"C" :HUFF=0 

27S0 RD=Si : NC=S : GQStJB 2820 

2790 Mí(Fl í F) = "0 ,t 

2800 RQ“F 1 í NOF ; 6Ü5UB 2820 

2810 RETURN 

2020 X=2:Y=2 

2830 FOR N-i TO 8 

2840 FDR M=1 TO B 

2850 IF N=RO AND M=NC THEN GÜ5UB 2910 

2860 X=X+2 

2870 NEXT M 

2880 X"2 : Y=Y+2 

2890 NEX7 N 

2900 RETURN 

2910 C$=*MMN f M) 

2920 GOSUB 2410 
2930 RETÜRN 

2940 REM «« CONVERTER »>> 

2950 F=ASC ( LEFTS í F% ,1) ) 

2960 F-F-64 

2970 Fi-VAL(RIGHTM F* ,1 ) ) 

2980 FI-9-F1 

2990 5— ASC E LEF I í ( Sí r 1 ) ) 

3000 5=5-64 

3010 Sl-VALtRlQHTSCS*,!) ) 
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3020 SI =9 Sl 
3030 RETURN 

3040 REM <<<< RECONVERTER >>>> 

3050 R*-CHR*(NC+64 ) 

3060 RS-RS+STRÍ (9-LIN) 

3070 RETURN 

3000 REM <<<< VALIDAR »>> 

3090 GOSU& 2950:HUFF=0 
3100 P*="B" 

3110 IF FLA=2 THEN Rft=" A" : PI 4-"C " 

3120 FOR Y— 1 TO Q 

3130 FOR X=I TO G 

3140 IF HUFF = 1 THEN GOTO 3170 

3150 IF M*(Y s X)OF* AND M*( Y, X ) ; <>P1* TH 

EN GOTO 3170 

3160 GQSUB 3630 

3170 NEXT X 

3180 NEXT Y 

3190 CHEC-1 

3200 (Fl 9 F) :D*=M* (Si ,S) 

3210 IF C*~"0" THEN RETURN 

3220 IF ( C%= " A " OR Ü^= F ’Ü") AND PLA^l TH 

EN RETURN 

3230 IF ( CS= M B' 1 OR C$="D M ) AND PLA=2 TH 
EN RETURN > 

3240 IF Dt<> H fl H THEN RETURN 
3250 IF C*="A" AND SKFl THEN RETURN 
3260 IF C*- M B" AND S1>F1 THEN RETURN 
3270 XD~S-F:YD»SI-F1 

3200 [ F SON ( X D ) * ( X D ) = 1 AND SGN ( YD ) * i, YD ) 

=1 THEN GOTO 3390 

3290 I F SGN ( XD ) * ( X D )< SGN ( YD ) * ( YD ) THEN 
RETURN 

3300 X*=M*(Fl+<YD/2) .Fi-(XD/2)) 

3310 ir (Xü= l ‘A" OR X*="C' 1 ) AND PLA=2 TH 
EN RETURN 

3320 IF DR XÍ- M D M ) AND PLA~i TH 

EN RETURN 

3330 IF X$= H 0" THEN RETURN 
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3340 RO"F 1+C YD/2J :NC=F+f XD/2) 

3350 MT ( RO , NC ) - " 0" ; GDSUB 2820 
3360 GDSUB 3050 

3370 Z4 C CÜU . i } “Rí : Z$( COü p 2 1 “Rí 
3380 COU=CGU+I ;GOTO 3400 
3390 IF HUFF=1 THEN RETURN 
3400 CHEC-0 : RETURN 
34 10 REM <<« JOGADA $»> 

3420 GOSUB 252©:HUFF*-0 
3430 GGÜUB 309© 

3440 1F CHEC“0 THEN GOTO 3470 

3450 LOCATE 2, 22: PR INI "MOVIMENTO ILEGA 

L M 

3460 PLAY " L4GEC " ; GOTO 3420 

3470 GOSUE 2730 

340© ZT ( CQU , i ) -FT : CÜU , 2 ) =5í 

3490 CÜU-COU+l i IF COU-I0I THEN CÜU-1 

3500 IF HUFF=0 THEN GOTO 353© 

3510 Y— 81 : X=S : GOSUB 3630 
3520 IF MLJFF=1 THEN GOTO 3780 
3530 HUFF=0; RETURN 

3540 REM «<< ALTERNAR JOGADORES »>> 

3550 PLA=i 

356© GOSUB 3420 

3570 GOSUB 1470 

35B© PLA=*2 

1590 GÜSUB 3420 

3600 GDSUB 147© 

361© RETURN 

3620 REM < < < < COMER >>>> 

363 © HüFF-0 

3640 H14- ,J A" ;H24“ ll C l< 

3650 IF F'LA-2 THEN Hlí - " B SI : H2+- " D" 

3660 IF Y<3 OR Mí í Y ? X ) = fl A" THEN GOTO 37 
1© 

3670 IF- X<3 THEN GOTO 3690 
3680 IF ÍMÍÍY-.UX 1)=H1Í OR MÍÍY-l^-l) 
=H2f) AND MT { Y— 2 „ X-2 ) =" 0 " THEN NÜFF=1 
369© IF X; 6 THEN GOTO 3710 
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3700 IF ( ( Y— 1 , X+i ) =H1 $ OR K*{Y-1 P X-Í> 
=H2* ) AND M$(Y 2 J X+2) = Í '0" THEN HUFF=i 
3710 IF Yy 6 ÜR MfcíYpX^B" THEN GOTO 37 
60 

3720 IF X<3 THEN GOTO 3740 

3730 IF (Mí OR M* ( Y+i , X-l ) 

=H2S) AND Y+2,X-2)~"0 » THEN HUFF=1 

3740 IF X>6 THEN GOTO 3760 

3750 IF (M*(Y+i f X+l)=-HlS ÜR m(Y-*-l f X + i) 

=H2T) AND NS ( Y +2 r X -<-2 ) — "g* 1 THEN HUFF=1 

3760 RETURN 

3770 REN <<<< COMER DE NOVO >>>> 

3780 LOCATE 26,6:PRINT S$ 

3790 F$=S$ 

3000 LOCATE 26,B:PRÍNT '* »■ 

3910 LOCATE 26,0 
3820 GOSUB 2620 
3930 G$-=N$ 

3840 LOCATE 2, 22 sPRINT STRI NG* { 16 , 32 ) 

3850 GOSUB 2950: GOSUB 3190 

3060 IF CHEO0 THEN BOTO 3890 

3B70 LOCATE 2,22:PRINT " MOVIMENTO ILEGA 

L" 

3800 PLAY ^LGGECGEC" : GOTO 3800 

3890 GOSUB 2730 

3900 Z*(COU, 1 )=F$ : (C0U,2)-S* 

3910 COU-COU+líIF COU=101 THEN COU=i 
3920 Y=3 1 ; X =8 : GDGUB 3630 
3930 IF HUFF -1 THEN GOTO 3780 
3940 HUFF-0 : GOTO 3530 
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Xadrez 



Você provavelmente já ouviu faiar dç computadores que jogam xadrez. 
Um programa inteligente para jogar xadrez, porém* seria grande demais 
para caber neste livro* de modo Que preferimos criar um programa que 
Fosse útil como “tabuleiro eletrônico M . O programa pode ser usado para 
substituir um tabuleiro comum, com a vantagem de que não é necessário 
anotar as jogadas. Os dois jogadores entram com os lances usando a no- 
tação normal do xadrez, isto é T letras para indicar as coluna 1 ; e números 
para indicar as linhas, 

O computador examina eada lance para verificar se è possível dentro 
das regras do xadrez. Apenas sdo permitidos os movimentos de peças da 
cor correta, de uma casa ocupada para uma casa que possa ser atingida 
por essa peça. As peças tomadas sao automaticamente removidas do jogo. 
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O programa nua indica xeque nem xeque-mate C permite jogadas que 
deixem o rei em xequé; cabe aos jogadores tomar cuidado para evitar que 
isso aconteça. O programa iam bem não prevê a tomada de peões cn pas 
saní\ a opção ,f remover peça' T deve ser usada para retirar um peão do 
tabuleiro se eíc for tomado en passaní. 

O programa executa eorretamente os dois tipos de roque, verifican- 
do primeiro se o rei e a torre estão nas suas posições iniciais e se nãi> exis- 
te nenhuma peça enire des. Entretanto, o computador aceita o roque se 
uma das peças jd foi movimentada e voltou ã posição inicial ou se uma 
das casas entre o rei c a torre estiver cm xeque. Cabe aos jogadores evitar 
uma jogada de roque nesses Últimos dois casos. 

O programa também permite fixar uma posição inicial qualquer pa- 
ra as peças, o que é útil para o estudo de problemas de xadrez ou varian- 
tes de aberturas e finais. Além disso, jogos dc ate 100 lances podem ser 
salvos cm fita e analisados jogada por jogada. Os peões são automatica- 
mente promovidos a damas quando chegam á última linha. 


Resumo dos comandos n opções 

1 . Para mudar a posição inicial das peças: Quando o computador per- 
guntar ,L Você quer montar o tabuleiro?”, entre com l4 fj‘ F c indique a po- 
sição das peças» da esquerda para â direita ç de cima para baixo, usando 
o seguinte código: 

Peças brancas: P = peão, T = torre* C - cavalo, R - rei, D = dama, 
fí - bispo. 

Peças pretas: o mesmo código, mas usando letras minúsculas. 
Casas va/.itix: aperte a barra dc espaço. 

As brancas sempre começam na parte de baixo da tela. 

2. Pura remover uma peça: Entre com COI>F-R c a posição da peça, A 
vez passa para o adversário. 

3. Para fazer o roque; Entre com lt c depois com E ou D, conforme o caso, 

4. Para salvar uma partida; Entre com CíRAPH-5. depois de apertar as 
teclas RECO RI) e PLAY do gravador, se estiver usando fila. Sc estivei 
usando disquete, indique a unidade de disco cm que se encontra o seu 
disquete dc dados (se quisci , você também pode salvar o jogo no disquei e 
de programas). 
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5. Para carregar uma partida: Entre com GRAPH-C c depois aperte a 
leda 1*1 .A V do gravador. O computador carregará o primeiro arquivo 
que encontrar na fita. Se estiver usando disquete, o computador carrega- 
rá a última partida que foi salva, que estará guardada tto arquivo de da- 
dos chamado Xadrez. Depois de carregar a partida, o computador entra 
automaticamente no modo de repetição (vide item seguinte}. 

6. Para repetir uma partida: Para entrar no modo de repetição, entre com 
Í!RÀPH-J, Cada vez que a barra de espaço for apertada, o computador 
mostrará uma nova jogada, a partir da inicial, Para voltar ao modo nor- 
mal, hasta entrar de novo com CIRAPH-J. 

7. Para abandonar uma partida: Entre com GRAPH-À. O computador 
ihe oferece a Oportunidade dc salvar a partida cm fita ou disquete antes 
de começar um novo jogo. 

1000 REM <<<< XADREZ - IS5I /BODTSY/ ANDV 

»>> 

1010 SCREEN 1,0.0; CLE AR 1 000 

1020 COLOR 15,4 ,4; KJ i ÜFF 

1030 D j M C, ( O , O } , MSj ( S , 9 ) , X + f 8 , 3 > , Z i í 101. ) , 

2 ) 

1040 LOCATE 10, 10: PR INI 11 b SPERE" : LOCATE 
3,12; PRINT "15 SEGUNDOS " 

1050 GO SUB 5740S0OSÜB 5190 
1060 BÜSUB 4510 

1070 LDCATE 1 , 19: PRINT "Voc:é> quor monta 
r" 

1080 LOCATE 1,20: PRINT ”n tafcjuleiro (5/ 
U)7" 

1 090 Aí - 1 NPU TÍ C 1 ) : BEEP 

1 1 00 L DG ATE 1,19: PR E Nl 8 T R 1 NG$ í 1 6 , 11 " ) 
1110 I OCATI 1,20: FR I N 1 ST R I NGÍ ( 18 . " " ) 

1120 IF Aí = " ê “ GR AÍ- M S" THEM GOSLIB 386 
0:íF UHE-0 I HEM 1150 EL SE 1060 
113© II Aí ==■" n 11 OR A$-" N " THEN 1140 ELSE 
1070 

1140 GPSUP 1 700 : GOSLIB 1420 

1150 cou-i 
1160 8ÜSUB 7800 
1170 GOTO 1160 
1180 fcNB 
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1190 RE M «<<< TNECID DO JOGO >>>> 

1200 FOR N=1 TÜ 0 
1210 FOR M=1 TO S 
1220 M$(hUM) = n 0" 

1230 

1240 NEXT N 

1250 MEXI N 

1260 FOR N=»=l TO Q 

1270 m C2,N) = , 1 P M íX«C2 J N}“ ,, p M 

1280 ÍTÍ ( 7 3 N J — “P" : X* ( 7 ,N )» n P" 

1290 NEXT N 
1300 RÈSTÜRE 6340 
1310 FOR N-1 ro a 
1320 READ A* 

1330 tWe,N)=Af 
L340 X*{q£n)**A* 

1 350 C$=CHR$ t ASC ( A® i + 32 > : A«=C* 

1360 n*í i ,N) 

1370 X$(i,N)=A* 

1380 NEXT N 
1390 GO SUB 5690 
14O0 RETURN 

,14 10 Rí M «<; DESENHAR PEÇAS >>>> 

1420 X~2 : Y-2 
1430 FOR N=1 TO 3 
1440 F OR M=1 TU 0 
1450 ( N 5 M } 

1460 IF C*="0" THEN 1490 

1470 LOCATE X,Y 

1400 GOSUB 1550 

1490 X=X+2 

1500 NEXT M 

1510 X— 2 ; Y-Y+2 

1520 NEX T N 

1530 RETURN 

1540 <<<< PECA >>>> 

1550 LOCATE X , Y : X X=X ; X=X / 2 : YY=Y: Y=Y/2 : I 
F C*="K" AND C í X „ Y ) =1 1 HEN S Di*=Ki 

* EL SE IF C$="K: 1r THEN D*”K2* sDÍ*=*K3è 
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1560 IF C4>-" k" AND C{X.,Y> = 1 THEN D*=K4* 
:Dií~K5$ ELSE IF CS-^k" THEN D*^K6*;Di* 
=K7$ 

1570 IF C*= ,i Q M AND C<X„Y)=1 THEN i 

Dl^-QSÍ ELSE IF C$“ M Q" THEN D4~Q2í:D,l*- 
Q3* 

1580 I F C%="q" AND C ( X , Y ) -1 THEN D*-U4fc 
:D1*=Q5$ ELSE IF CWrf 1 * IHLN D*“Q6*:D1$ 
=□7$ 

1590 IF CS=’ B lf AND CíXjY)=l THEN 
Dl$=Bl* ELSE IF THEN D*™B2$:D1*= 

B3$ 

1600 IF C+- " b " AND C(X,Y)=1 THEN D$=B4$ 
:Di*=B5t ELSE I F I HEN D$^D6*:D1Í 

~B7$ 

1610 IF C$="T" AND C ( X , Y ) -1 THEN D*=T*: 
D1*~T1* ELSE IF " T 11 THEN D*=T2SsDl$= 
T3* 

1620 IF C$= " t " AND L(X»Y)=1 THEN D+=T4* 
:Di*-T5* ELSE IF THEN D$=T6$:Di$ 

=T7í 

1630 IF Cfc^R" AND C(X,Y)^1 THEN D* =R$ : 
Di$=Rl* ELSE IF CS= M R M THEN D$=R2$:DI$= 
R3$ 

1640 IF C*="r fi AND C(X,Y)-1 THEN D*~R4fc 
cDI*^R5* ELSE IF C*^"r" THEN D*=R6fc;Di* 
=R7* 

1650 IF C*”'*P" AND C(X*Y>=1 THEN D$=P$; 
D1$=F1* ELSE IF Ct=" F 11 THEN D*=F'2t£ s Dl$= 
P3* 

1660 IF Uí= 4t p" AND C(X,Y)~1 THEN D*=P4* 
:Di*=P5* ELSE IF Cí="p n THEN D*=P6í:Dl$ 
=P7* 

1670 IF C*= 5> 0” AND C t X , Y I =1 THEN D*=CHR 
%{ 214)+CHR*(214> íDi*=D$ ELSE IF CS='0‘ 
THEN D*- ,L 11 :Di$=D* 

1680 PRINT 
1690 X - X X : Y - YY 
1700 LOCATE X,Y+1 
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17 J 0 PR I MT DIÍ ; 

1720 RETURN 

1730 REM ■ ■ E NT RADA Uh DADOS >>» 

1/40 LOCATE 21,3b 1F PLA“i THEN PRINT "B 
RANÇAS" EL SE PRINT "PRETAS " 

1750 S GE A TE 26 , 6 ; PR INI '■ Ir 
1760 LOCATE 26, 85 PRINT ,J " 

1770 LOCATE 26,6 
17A0 ÜÜSUK 1050 
L790 F^-N* 

I B00 ÍF CAS=i THEN RETURN 

181.0 LOCATE 26,0 

1820 GOSUB 1850 

1830 Sí-Ní 

1840 RETURN 

1050 Ní=" 11 :CAS=0 

1060 A$=XNPUT4(1) 

1070 3 F AÍ*CHRÍU96) THEN GOSUB 2030 
1880 1F Aí - " R" OR AS= tl r M f HEN GDSUB 326 
0 

1.090 ir CAS-1 THEN RETURN 

1900 ÍF Aí -CHRí CIOS) THEN GOSUB 4910 í LO 
CATE 26,6 

195 0 IF A$"CHR$ í 210) THEN GOSUB 4730: LO 
CATE 26,6 

1920 IF Aí-CHRt { 156 ) THEN OOTU 2320 
1930 Aí-^CHR-MASCíAS) AND 223) 

1940 LF A^=i :URí ( 19a ) AND C0U71 THEN Zí ( 
CDU, 1 ) = ,l FF" : BOTO 4240 

1950 IF Aí "A" OR Al > "H" E HEN GOTO 1860 
1960 PLAY "L8C " í N í -Aí j PR I NT Ní ; 

1970 AÍ^INPUTÍU) 

1980 IF Aí-CHRíMS) THEN PRINT CHRÍ(I27) 
; : GOTO 1050 

1790 IF Aí ■■ 11 1 ,r DR Aí "9" THEN 1970 
2000 PLAY "LBG" : NÍ=NÍ+AÍ : PRINT ík% ; 

2010 RETURN 

2020 REM «< FIM DD JOGO >>» 

2030 LOCATE 0,20: PRINT " Quer sal vsr a 
partida (S/Nj? " 
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2040 SS*=INPUT*( i ) : 3F SBa^S’ 1 QR 33*="^ 
" '[ HEN fií=CHRÍ (210) i RE í URN 
2050 IF BS GR SSt^Tn' 1 THEN LOCATE 
0 , 20 : PR T MT " Qiipr jngar dp novo (3/N)'"' 

M 

2060 FfFt*-INPUT*(li i IF RR*- ,f £ l[ DR RR*= l, s 
11 THEN RUN FLSr 3CREEN 0:GTOr 
2070 REH < i. < < MÜ V 1 MENTO 5 > > > 

2030 GQSUB 2470 
2090 CHt=M*(FI,F) 

2100 M*íSi,S)^M$(Fi,F) 

2X10 IF FLA— 1 AND I Í=1 AND ( Fl , F > ^"p" 
THEN M& ( Fl „ F ) ™"q " 

2120 IF PLA-2 AND F .1 =3 AND M$ ( F 1 „ F > = "P" 
THFN M$ (Fl ,F>= s,l P 1 ' 

2130 C*=CH* 

2140 ftÜ—Sl : CR—3 : GOBUB 2190 

2150 MÍÍFl „F ) = ' , 0 ,í 

2160 RO-Fi £ CR-F : G05UB 2190 

21 70 M* (F 1 ,,F 1 = jl 0 n 

2100 RE TU RN 

2190 X”2 £ Y-2 

2200 F3R M=I TG G 

2210 FOR M=1 TQ O 

2220 IF N=RO AND M^CR THEN GÜSUR 22B0 

2230 X-X+2 

2240 NE X f Fl 

2250 X— 2 : Y— Y+2 

2260 NEXT N 

2270 RETURN 

22S0 Ct-M$ ( F 1 , F ) : LOCATE X,Y:GOSUB 1550 
2290 RETURN 
2300 RETURN 

2310 REM «<< REMOVER PEÇA >>>> 

2320 LOCATE 20*19:PRINT "Peça" 

2330 LOCATE 20,20: Fífc^lNPUT* ( 1 ) ; At=CHR$ í 
ASC(F*) AND 223) 

2340 IF A*-'! "A" GR A* "H 11 THEN GOTO 2330 
ELSE PR INI At 
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2350 LOCA TE 21 , 20 : G*= INPUTi ( I > 

2360 IF R$< ■' 1 " OR G*>"9'* THEN GOTO 2350 
ELSE PR! NT G$ 

2370 F*=Ai+G$ 

2330 LOCATE 20,1?:PRINT 
2390 LÜGATE 20,20: FR INI " 

2400 Si^Al” sGÜSUB 2490 
2410 Mi ( Fl , F ) - ll 0" 

2420 RO=F 1 : Cft^F : GQ5UB 2190 

2430 ZílCOU.l >=FÍ:ZÍ£CÜÜ,2)=Fi 

2440 CQU-GÜU+i 

2450 IF COÜ-101 THEN COÜ“l 

2460 IF PLA-1 THEN PLA=2èGOSUB 3650 

24/0 RETÜRN 1160 

2430 REM <<<< CONVERTER >>>> 

2490 F=ASC(LEFTi(í $ s 1 ) ) 

2500 F=F 64 

2510 F1“9-VAL£RIGHTÍ(FÍ,1 >) 

2520 S=ASC ( LEFTi ( Si , 1 ) ) 

2530 S=S-64 

2540 Sl -9 -VAL [ R IGHT % ( 5i , i ) ) 

255© RETÜRN 

2560 FÍ=CHR* í F +64 ) + G í Ri í 9-F 1 ) 

2570 Si=CHRÍ ( 5+64 > +5TRÍ £ 9 -Si ) 

2580 Zi(CQU,l)=FÍ 
259© ZÍ£COU.,2)^SÍ 
2600 COÜ=CnU+l íRETURN 
2610 REM 1 < < < VALIDAR »» 

262© GOSUB 2490 
2630 CHE=1 


2640 C*=m (F1*F) :DS=M$(S1 ,S) 
2650 IF Ci- 1 '© " THEN RETÜRN 
2660 IF C£> M 2 11 AND PLA-1 TI-tEN 
2670 IF Ci< 11 a" AND PLA-2 THEN 
2630 IF Di = " 0 ,J THEN 2710 
2690 IF DSy*Z 1h AND PLA=2 THEN 
270© IF Di<"a M AND PLA-l THEN 
2710 IF ASC ( C$ ) >A5CÍ " Z" ) THEN 
SC IC* 1-32) 


RETÜRN 

RETÜRN 


RETÜRN 

RETÜRN 

Ci---CHRÍ£A 
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2720 IF ASC(D*)>ASC( "Z" ) THEN D$=CHR*(A 
SC ( D$ ) -32 ) 

2730 IF D*="K" THEN RETURN 
2740 IF C*= M P" THEN 2850 
2750 IF C*-"R" THEN 2980 
2760 IF C$="T" THEN 3010 
2770 IF C$="B" THEN 3120 
2700 IF C*="Q M THEN 3170 
2790 IF CS-"K" THEN 3230 
2800 CHE=0 

2810 IF Ct>-"K" OR C*="P" OR C*-"T" THEN 
RETURN 

2820 GOSUB 3540 
2830 RETURN 

2840 REM <<<< PERU >>>> 

2850 IF PLA-2 AND F1>S1 THEN RETURN 
2860 IF PLA=*1 AND S1>F1 THEN RETURN 
2870 DIS=SGN(Si-Fi ) * (Sl-Fl ) : IF DIS=1 TH 
EN 2930 

2880 IF DIS>2 THEN RETURN 

2890 IF SOF THEN RETURN 

2900 IF PLA=2 AND Fl=2 AND M* ( 3 , F ) = "0'* 

THEN 2960 

2910 IF PLA«=1 AND Fl=7 AND M* (6,F )-"0" 
THEN 2960 
2920 RETURN 

2930 IF S=F AND D$*"0" THEN 2960 

2940 IF SGN(S-F)*(S~F)=1 AND D*<>"0 M TH 

EN 2960 

2950 RETURN 

2960 GOTO 2800 

2970 REM <<<< TORRE >>>> 

2980 IF FlOSl AND FOS THEN RETURN 

2990 GOTO 2800 

3000 REM <<<< CAVALO >>>> 

3010 IF Sl«Fl+2 AND S=F-i THEN 3100 

3020 IF Si=Fi+2 AND S=F+1 THEN 3100 

3030 IF Sl-Fl-2 AND S«F-1 THEN 3100 

3040 IF Sl=Fi-2 AND S=F+1 THEN 3100 
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3050 IF Sl~Fi+i AND S^F-2 THEN 3100 

3060 IF Sl— F 1+1 AND S-F +2 THEN 3100 

30/0 II Sl-f A 1 AND S~F-2 THEN 3100 

3080 IF Si=F 11 AND S=F+2 THEN 3100 

3090 RETURN 

3100 BOTO 2800 

3110 REM <<<< BISPO »>> 

3 J 70 XD“F~*S : XD-SGN ( XD ) *XD 
3130 VD=Fi-Si : YD=SGN( YD) +YD 
3140 IF XDOYD THEN RETURN 
3150 GUTÜ 2800 
31*0 REN < «< DAMA »» 

3170 XD=F S:XI)=SGN(XD)*XD 

3180 Yl>=l 1 01 : YD=SGN( YD) *YD 

3190 IF XD=YD THEN 3210 

3200 IT FlOSi AND FOS THEN RETURN 

3210 GOTO 2800 

3220 REM <<<< REI >>>> 

3230 IF SGN ( Fl— Si ) * (Fl—Sl ) Oi AND SGN ( F 

-S) ♦ (F-S)Ol THEN RETURN 

3240 GOTO 2000 

3250 REN «« ROQUE >>» 

3260 PRINT "C" ; 

3270 A=ASC ( INPÜT9U ) ) s A=A AND 223 
3280 IF A 068 AND AO 69 THEN 3270 
3290 A*--CHR*< A) : PRINT A*; 

3300 N*="L"+A*:CAS=1 : RETURN 
3310 REM <<< MOVIMENTO DE ROQUE >>>> 
3320 S$=a”AG" ;A$-RIGHT*(F* , 1 ) :GOSUB 2490 
s CHECAI 

3330 IF ( PLA=1 AND A^="E" AND M*(8,i)0 

"R“ ) OR ( PLA“ 1 AND Aí^D*' AND M$(8,8K> 

"R") THEN RETURN 

3340 IF (PLA--2 AND A*=”E" AND M4 (1,1)0 

" r " ) OR ( PLA-2 AND Aí- ,, D , ‘ AND M*< 1,8)0 

"r" ) THEN RETURN 

3350 IF PLA=2 AND MT» ( 1 , 5 ) O" k " THEN RET 
URN 

3360 IF PLA=1 AND Mt(0,5)O"K 
URN 


II 


ÍHEN RET 
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3370 AU=1:EN“7:IF PLA=1 THEN LIN~8 ELSE 
LlN-i 

3380 IF AT="E " T HEN AU=»-i:EN=2 

3390 FOR N=5+AU TO EN STEP AU 

3400 IF MT(LIN,N)<>"0" I HEN N-EN : RETLIRN 

3410 NEXT N 

3420 PLAY "L8CDEGFECF li" 

3430 Fl-L IN : F=5+AU : S1=F i : S-EN 

3440 IF AU=- 1 THEN S“S+i 

34 50 MT(F1 ,F)«"R" :MT(Si ,S)="K" 

3460 MT (I 1,5)* "O": Ml» ( SI , EN ♦ AU ) = "0" 

34/0 IF LIN-1 THEN M$< F1 , F ) =" r " : MT < SI , S 
) - " k " 

3480 Z T ( CUU , 1 )“"CC" : ZT ( EUI 1 , 2 ) = "CC" :COU= 
COU< 1 

3490 FOR F=1 TO 8 

3500 RO=F 1 : GR"F : GOSUB 2190 

3510 NEXT F 

3520 CHEC=0 : RETURN 

3530 REM <<<<. "VERIFICAR CAMINHU >>>> 
3540 NL)=0 : MD“0 * 

3550 IF Fl>Si THEN ND= 1 

3560 IF Sl>F 1 THEN ND~1 

3570 IT F >S THEN MD--1 

3580 IF S>F THEN MD=1 

3590 CN-F 1 : CM=F 

3600 CN=CN+ND : CM=CM+MD 

3610 IF CN=G1 AND CM=S THEN RE IURN 

3620 IF MT ( CN • CM ) < > " 0 " I HEN CHE=1 : RETUR 

N 

3630 GOTO 3600 

3640 REM <<<< VEZ >>>> 

3650 GOSUB 1740 

3660 LOCATE 20,11:PRINT " " 

3670 I OCATE 21,12:PRINT " 

3680 IF CAS-i TFIEN GOSUB 3320 ELSE GOSU 
B 2620 

3690 IF CHE~0 THEN 3730 

3700 LOCATE 20,11:PR1NT "MOVIMENTO*' 
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3710 LOCATE 21,12»PRINT " ILEGAL" 

3720 GOTO 3650 

3730 IF CAS=1 THEN 3780 

3740 '/ % (COU, 1 )=F* 

3750 Z$ ( COU , 2 ) =S$ 

3760 COU-COU+1 : IF COU=i0i THEN COU=l 
3770 GOSUB 2080 
3780 RETURN 

3790 REM <<<< JOGADA COMPLETA >>>> 

3800 PLA=1 
3010 GOSUB 3650 
3820 PLA-2 
3830 GOSUB 3650 
3840 RETURN 

3850 REM <<<< MONTAR TABULEIRO >>>> 

3860 X=2 : Y=2 

3070 FOR N=i TO 8 

3880 FOR M=l' TO 8 

3890 M*(N,h)« ,, 0 M :X»(N,M)* ,, 0 n 

3900 GOSUB 4040 

3910 X-X+2 

3920 NEXT M 

3930 X«2:Y«*V+2 

3940 NEXT N 

3950 LOCATE 20,18:PRINT "TUDO" 

3960 LOCATE 20,19:PRINT "CERTO?" 

3970 LOCATE 20,20:PRINT " 

3980 A*=INKEY*: IF A*-" " THEN 3980 
3990 IF A$>"Z" THEN A$=CHR$ ( ASC ( A* ) -32 ) 
4000 IF A*="S" THEN CHE-0; LOCATE 20,18: 
PRINT " " : LOCATE 20,19:PRINT " 

" : RETURN 

4010 IF A*="N" THEN 3860 
4020 GOTO 3980 

4030 REM <<<< ENTRADA DE DADOS >>» 

4040 LOCATE X,Y:PRINT "?" ; 

4050 D*= 1NKEY* : IF D*="" THEN GOTO 4050 
4060 IF D*=" " THEN D*="0":GOTÜ 4170 
4070 IF D$> " 2 " THEN C$=CHR$ ( ASC ( D$ ) -32 ) 
ELSE C*=D* 
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4000 IF C*0 ,, T M AND C*<>"C" AND C»<>”B M 
AND C$<>"D" AND CSO"R" AND C*<>"P" TH 


EN GOTO 4050 


4090 IF D*= ,, r M 
4100 IF DS="R" 
4110 IF Dí^t" 
4120 IF D*“"T" 
4130 IF DS«"d M 
4140 IF D*= M D" 
4150 IF D$-"c " 
4160 IF D*="C" 
4170 PLAY " L8C 


THEN D$*"k" 
THEN D*= M K" 
THEN D$="r" 
THEN D$= M R" 
THEN D$-"q" 
THEN B$="U" 
THEN D*® M t" 
THEN D*=”T" 
•• :M*(N,M)-D* 


4180 X*(N,M)=D* 


4190 C*=D* 

4200 LOCATE X,Y 
4210 GOSUB 1550 
4220 RETURN 

4230 REM <<<< REPETIR >>>> 

4240 PLAY " L8CEGCEG “ : COU=0 : PL A* 1 
4250 FOR N«i TO B:FOR M=1 TO 8 
4260 M*(N,M)=X* (N,M) 

4270 NEXT MsNEXT N 

4280 GOSUB 4510 s GOSUB 1420 

4290 COU^COUfl 

4300 IF Z$(C0U,1)="FF" THEN 4480 
4310 F$-Z*(C0U,1) xS*“Z*(C0U,2) 
4320 GOSUB 2490: GOSUB 2080 
4330 C0U=C0U+1 

4340 IF Z$(COU, 1 )="CC" THEN 4290 


4350 A*-INKEY$ 

4360 IF A*- M " THEN 4350 
4370 PLA=»2:PLAY "L8DE" 

4380 IF A$=CHR$ ( 198 ) THEN 4400 
4390 IF Z1»(C0U, 1 )= ,, FF M THEN 4480 
4400 Ffc=Z$(C0U, 1) sS*=Z*(C0U,2) 

4410 GOSUB 2490: GOSUB 2080 

4420 IF Z*<C0U+1,1>="CC“ THEN COU-COU+2 

: GOTO 4390 
4430 A*=INKEY* 
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4440 IF A*="" THEN 4430 
4450 PLA=1:PLAY "L8DE" 

4460 IF A$=*CHRÍ (198) THEN 4480 

4470 GOTO 4290 

4480 IF PLA^i THEN 1160 

4490 GOSUB 3650: GOTO 1160 

4500 REM <<<< TELA >>>> 

4510 COLOR 15,4,4 
4520 FOR Y=2 TO 16 STEP 2 
4530 LOCATE l,YlPRINT CHR* ( 220 ) : BD* ; CHR 
♦ ( 220 ) 

4540 LUCATE l,Y+i sPRINT CHR$> ( 220 ) : BD$ : C 
HR* ( 220 ) 

4550 BDt=R I GHT $ ( BD$ , 14 )+LEF I % ( BD* , 2 ) 
4560 NEXT Y 

4570 LÜCATE 1,1 sPRINT CHR* ( 21 5 ) ; STR I NGS 
( 16,CHR*(219) ) ; CHRS ( 216 ) 

4580 LOCATE 1,18:PRINT CHR* ( 217 ) ; STR I NG 
*( 16 , CHR$ ( 219 ) ) ;CHR*(218) 

4590 FUR Y“2 TO 16 STEP 2 
4600 LOCATE Y,0 sPRINT CHR* ( ( Y/2 ) +96 ) 
4610 LOCATE 19,Y:PRINT CHR$ ( 48+9-Y/2 ) 
4620 NEXT Y 

4630 LOCATE 21,0 sPRINT " XADREZ" 

4640 LOCATE 21,1 sPRINT "-=====" 

4650 LOCATE 21, 6 sPRINT "De s" 

4660 LOCATE 21, 8 sPRINT "Paras" 

4670 FOR X=1 TO 7 STEP 2:F0R Y-l IO 7 S 
TEP 2 

4680 C(X,Y)=1:C(X+1,Y) =0 
4690 C ( X , Y+l ) “0 :C(X+1,Y+1)=1 
4700 NEXT Y , X 
4710 RETURN 

4720 REM <<<< SALVAR >>>> 

4730 Z*(COU, 1 )="FF" s Gt= " " :HS=*" " : 

4740 LOCATE 0,20 sPRINT " ESPERE 7 M 

INUTOS 

4750 FOR N“1 TO 8: FOR M=1 TO 8 
4760 G$=G$+M$ (N,M)+X$(N,M) 
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47? 0 NEXT M,N 

4780 FOR N=1 10 100 

4790 H^H^ + Z* ( N , 1 ) s I$=1$+Z$\N,2) 

4000 NEXT N 

48X0 H*=H*+SIR*(COU) : BEEP 

4820 LOCATE 2, 20 SPRINT "CASSETE OU D ISO 

UETE (C/D)? 

4030 SS*“lNrur*( 1 ) : IF SS*="C" OR SS*^"c 
" THEN 4040 ELSE 4850 

4840 OPEN "CAS: XADREZ" FOR OUTPUT AS 1: 
GOTO 4880 

4850 LOCATE 2,20:PRINT "DRIVE A OU DRIV 
E B (A/B)?" 

4060 DD$=INPUT* (i) : IF DD*="A" OR BD*~"a 
" THEN OPEN "A: XADREZ" FOR OUTPUT AS i: 
GOTO 4880 

4870 IF DD*="D" OR DD*="b" THEN OPEN "B 
: XADREZ" FOR OUTPUT AS 1 ELSE GOTO 4820 
4880 PRINT41 , G$ : PRINT#1 , H’* : PR INTttl , I * 
4U90 CLOSEsBEEPsBEEP: LOCATE 0,20:PRINT 
SPACL* ( 30 ) : RETURN 
4900 REM <<<< CARREGAR >>>> 

49X0 LOCATE 0,20 sPRINT " CASSETE OU Dl 
SQUETE (C/D)? " 

4920 SS*“ I NPUT M 1 ) : I F SS*^"C" OR SS*=="c 
" THEN 4930 ELSE 4940 

4930 OPEN "CAS: XADREZ" FOR INPIJT AS 1:G 
OTO 4970 

4940 LOCATE 2,20:PRINT "DRIVE A OU DRIV 
E B (A/H) 

4950 DD*=INPUT*(i) i IF DD*="A" OR DD*="a 
" THEN OPEN "A: XADREZ" FOR INPUT AS 1: 
GOTO 49/0 

4960 IF DD*="B" OR BD*^-"b" THEN OPEN "B 
I XADREZ" FOR INPU1 AS 1 ELSE GOTO 4940 
4970 IF EOF ( 1 ) THEN LOCATE 2, 20 SPRINT " 
NAO HA NENHUM JOGO SALVO ":CLOSE:FÜR 
KK-.1 TU 200: NEXT KK : LOCATE 2,20:PRINT S 
PACE*(27 ) : RE TURN 
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4980 G*=" M s I*-"" 

4990 LI NE INPUT#1 , G$ 

5000 LI NE INPUT#1 , H* 

5010 LINE I NPUT#1 , I * 

5020 CLOSE 

5030 LOCATE 2, 20 sPRINT " ESPERE 7 MI 
NUTOS •• 

5040 FOR N-l TO 8: FOR M=i TO 8 
5050 M*(N,M)=LEFT*(G*,1) :X*(N,M)=MID*(G 
*,2,1) 

5060 G$=R I GHT % ( G$ , LEN ( G$ ) —2 ) 

5070 NEXT M , N 

5080 FOR N=1 TO 100 

5090 Z $ ( N , 1 ) =LEFT % ( HS , 2 ) 

5100 H$ m R I GHT $ ( H$ , LEN ( H$ ) —2 ) 

5110 Z*(N,2)=LEFT*( I*,2) 

5120 I fc=R I GHT $ ( I $ , LEN ( I $ ) —2 ) 

5130 NEXT N 
5140 COU=VAL(H*) 

5150 A*-CHR* ( 198) 

5160 LOCATE 2, 20 SPRINT SPACE*(30) 

5170 RETURN 

5180 REM <<<< INICIALIZAÇAO >>>> 

5190 K$=CHR$ ( 182 ) +CHR$ ( 183 ) 

5200 K1$=CHRS ( 192 ) +GHR* ( 193 ) 

5210 K2*^CHR*(150)+CHR*(151) 

5220 K3$=CHR$ ( 160 ) +CHR$ ( 161 ) 

5230 K4$=CHR$ ( 166 ) +CHR$ ( 167 ) 

5240 K5*=CHR*(176)+CHR*(177) 

5250 K.6$-CHR$ ( 198 ) +CHR* ( 199 ) 

5260 K7*=CHR*(208)+CHR*<209) 

5270 Q$»CHR$ ( 184 ) +CHR* ( 185 ) 

5280 Q1S=CHR*( 192)+CHR*< 193) 

5290 Q2$=CHR* ( 152 ) +CHR$ ( 153 ) 

5300 Q3$"CHR$ ( 160 ) +CHR$ ( 161 ) 

5310 Q4*=CHR*(168)+CHR*(169) 

5320 Q5$=CHR$ ( 176 ) +CHR$ ( 177 ) 

5330 Q6S=CHRS(200)+CHR*(201 ) 

5340 Q7S=CHR*(208)+CHR*<209) 
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5350 D$“CHR$ ( 186 ) -*-CHR$ ( 187 ) 

5360 B1$=CHR$ ( 192 ) +CHR$ ( 193 ) 

5370 B2*=CHR*( 154)+CHRS( 155) 

5380 B3*-CHR* (160) +CHR* (161) 

5390 B4$=CHR$ ( 170 ) +CHRÍ ( 171 ) 

5400 £»5*=CHR*( 176)+CHR*( 177) 

5410 B6*=CHR$(202) fCHR*(203) 

5420 B7*-CHR*(208)+CHR$(209) 

5430 T$»=CHR$ ( 188 ) +CHR$ ( 189 ) 

5440 T 1$=CHR$ ( 192 ) +CHR$ ( 193 ) 

5450 T2S-CHR$( 156)+CHRS( 157) 

5460 T3$=CHR$ ( 160 ) 4 CHR$ ( 161 ) 

5470 T 4$“CHR$ ( 172 ) +CHR$ ( 173 ) 

5480 T5*=CHR*(176)+CHR*(177) 

5490 T 6$-CHR$ ( 204 ) +CHR$ ( 205 ) 

5500 T7$= a CHR$ ( 208 ) +CHR$ ( 209 ) 

5510 R*«CHR* ( 190) +CHRS ( 191 ) 

5520 Ri$=CHR$ ( 192 ) +CHR$ ( 193 ) 

5530 R2**CHR* (158) +CHR* (159) 

5540 R3*=CHR*(160)+CHR*(161 ) 

5550 R4$=CHR*( 174)+CHR*( 175) 

5560 R5$=CHR$ ( 1 76 ) +CHR$ ( 177 ) 

5570 R6$=CHR*(206)+CHR*<207) 

5580 R7$=CHR$ ( 208 ) +CHR$ ( 209 ) 

5590 P*=CHR$( 194) +CHR*( 195) 

5600 Pi$=CHR$ ( 196 ) +CHR1» ( 197 ) 

5610 P2*=CHR*( 162)+CHR*( 163) 

5620 P3$=CHR$ ( 164 ) +CHR$ ( 165 ) 

5630 P4*=CHR*( 178)+CHR*( 179) 

5640 P5*=CHR* ( 180)+CHRS< 181 ) 

5650 P6$-CHR*(210)+CHR*(21i ) 

5660 P7$~CHR$ ( 212 ) +CHR$ ( 213 ) 

5670 BD*-STR I NG* ( 2 , CHR* (214)) +SPACE* ( 2 ) 
5680 BD*=BDS+BD*:BD*=BD$+BD* 

5690 FOR N=1 TO 100 

5700 ZS(N,1)=SPACE*(2) : Z* ( N , 2 ) =SPACE* ( 2 
) 

5710 NEXT N 
5720 RETURN 
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5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5G1 0 

5820 

5830 

5840 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

T A 

5950 

5960 

5970 

5980 

5990 

40 

6000 

6010 

74 

6020 

6030 

6040 

6050 

6060 

6070 

4 


RE M <<<< DEFINIÇÃO DAS FORMAS »>> 

FOR CH=1 50 TO 181 
FOR N=0 TO 7 
READ B 

IF CH>-166 THEN B=B XOR 255 
VPOKE 8*CH+N,B 
NEXT N 

IF CH-165 THEN RESTORE 
NE X I CH : RESTORE 6120 
FOR CH=182 TO 213 
FOR N“0 TO 7 
READ B 

IF CH>=198 THEN B^B XOR 255 
VPOKE 3*CH+N,B 
NEXT N 

IF CH“197 THEN RESTORE 6120 
NEXT CH 

FOR CH=21 5 TO 220 
FOR N-0 TO 7 
READ B: VPOKE G*CH+N,B 
NEXT N , CH 

FOR A=0 TO 7: VPOKE 8*214+A , 255 : NL X 
RETURN 

DATA 1,3,29,63,63,57,28,7 
DATA 0,128,56,252,252,156,56,224 
DATA 1,19,81,91,109,55,27,15 
DATA 128,200,138,218,182,236,216,2 

DATA 1,1,7,14,28,28,14,7 

DATA 128, 178,724,240, 120, 120,240,2 

DATA 0,0,3,7,15,31,9,3 

DATA 0,192,64,224,176,208,232,120 

DATA 0,0,25,25,25,31,9,3 

DATA 0,0,152,152,152,248,240,240 

DATA 7,7,4,31,16,127,64,127 

DA l A 224 , 224 , 224 , 248 , 120 , 254 ,30,25 
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6080 DATA 0,0, 0,0, 0,3, 7, 7 
6090 DATA 0,0,0,0,0,192,224,224 
6100 DATA 5,4,3,15,8,31,16,31 
6110 DATA 224,224,192,240,112,248,56,24 
8 

6120 DATA 253,227,221,191,191,187,222,2 
31 

6130 DATA 127,131,59,253,253,157,59,231 
6140 DATA 237,147,85,91,109,173,219,239 
6150 DATA 183,201,170,218,182,239,219,2 
47 

6160 DATA 253, 249, 24/, 238. 220, 220, 230, 2 
47 

6170 DATA 191,159,239,247,251,251,247,2 

39 

6180 DATA 255,254,249,247,239,223,233,2 
43 

6190 DATA 63,223,95,239,183,215,235,123 
6200 DATA 255,230,217,217,217,223,236,2 
39 

6210 DA I A 255,103,155,155,155,251,247,2 
47 

6220 DATA 247,247,228.223,144,127,64,12 
7 

6230 DATA 239,239,231,251,121,254,30,25 

4 

6240 DATA 255 , 255 , 255 , 255 , 252 , 251 , 24 / , 2 

47 

6250 DATA 255,255,255,255,63,223,239,23 
9 

6260 DATA 245,250,243,239,232,239,208,2 
23 

6270 DA IA 239,239,207,247,119,251,59,25 
1 

6280 DATA 0,0,63,32,47,40,40,40 
6290 DATA 0,0,248,8,224,40,40,40 
6300 DATA 40., 40,4 7,32,63,0,0,0 
6310 DATA 40,40,22'! ,8,248,0,0,0 
6.520 DATA 0,0,255,0,255,0,0,0 
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6330 DATA 40,40,40,40,40,40,40,40 
6340 DATA R,T,B,Q,K,B,T,R 



9 

Gustavus 



Um Curioso Jogo de Estratégia 

Pelo que sei. esta é a primeira adaptação para computador de Simmons 
Simples , um conhecido jogo de lápis c papel. 

Simmons Simples ou Sim foi inventado por um sujeito chamado Gus- 
tavus Simmons. Decidimos chamar esta versão de Custavus porque o no- 
me parece mais pomposo que o do seu primo pobre. 

Neste jogo, cada jogador tem que traçar uma reta ligando dois pon- 
tos. Perde o primeiro que formar um triângulo de sua própria cor. O se- 
gredo é forçar o adversário a formar primeiro o triângulo. 

O computador se encarrega de mudar a cor da reta de acordo com 
o jogador e de indicar o vencedor assim que c formado um triângulo. 

Para traçar uma reta, basta movimentar o cursor ate a posição dese- 
jada, usando o joystick ou as teclas de controle do cursor da direita e da 
esquerda. Quando o cursor estiver sobre o primeiro ponto da reta a ser 
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traçada, aperte o botão dc tiro ou a barra dc espaço. Em seguida, deslo- 
que o cursor para o segundo ponto da reta e torne a apertar o botão de 
tiro ou a barra dc espaço. Sc a reta não for permitida, o computador se 
recusará a traçá-la e emitirá um ruído característico. Nesse caso, será pre- 
ciso entrar dc novo com os pontos inicial e Final. 

O jogo não pode terminar empatado c aparentemente nào há nenhu- 
ma vantagem em ser o primeiro a jogar. 

1 000 REM <<<< GUSTAVUS - ISSI >>>> 

1010 SCREEN 2,0,0 

1020 MAXF I LES=2 1 OPEN " GRP : S" FOR OUTPUT 
AS 1 

1030 GOSUB 1290 

1040 GOSUB 1190 

1050 GOSUB 1370 

1060 GOSUB 1S00 

1070 FOR N“1 TO 1 000 : NEXT N 

1090 IF FLY-1 THEN WIN=2 ELSE WIN=i 

1090 PRESET (50.160) 

1100 IF WIN=2 THEN CO=7 ELSE C0=9 
1110 COLOR CO , 0 : PR I NT tti,"0 JOGADOR" :WI 
N; "VENCEU! " 

1120 PRESET (50,175) 

1130 PRIMI # 1 , " QUER JOGAR DE NOVO?" 

1140 A$=INKEY*:IF A$“"S" OR A*="s" THEN 
1040 

1150 IF fí$»"N H OR A*="n" THEN SCREEN 0: 

COLOR 15,4,4:ST0P 

1160 GOTO 1140 

1170 GOTO 1060 

1180 REM <<<< TELA >»> 

1190 KEY QFI 

1200 COLOR 11 ,4,4: CLS 

1210 PRESET ( 100,0) SPRINT ttl , "GUSTAVUS" 

: PRESET (92,8) sPRINT 41," " 

1220 FOR N-l TO 6 

1 230 PUT SPR I TE N , (P(N,1),P(N,2) ) ,3,1 
1240 NLXT N 

1250 PRESET (8,32): COLOR 9:PRINT ttl,"JO 
GADOR 1" 
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1260 PRESET ( 182,32) : CDLOR 7.-PR1NT #1," 
JOGADOR 2" 

1270 RETURN 

12Q0 REM <<<< INI 1 IALIZACfiO »>> 

1290 DIM P ( 6 , 2 ) 

1300 RE5T0RE 

1310 FOR N=1 TO 6 : READ P(N,1):READ P(N, 
2) : NEXT N 

1320 8*="": FOR N-0 Tü 7 s READ A*:S*=S *+C 
HR*< VAL( "&H"-»AS) ) :NEXT jSPRITE*( 1 )=S% 
1330 S$= " " s FOR N=0 TO 7: READ A*:S*^S*+C 
HR*( VALÍ "S'H"+A$) ) : NI X 1 : SPR I TE* ( 2 ) 

1340 DIM D (6, 6) 

1350 RETURN 

13c>0 REM <<<< INICIO DO JOGO >>>> 

1370 FOR N»1 FU 6: FOR M=1 TO 6 
1380 D(N,M)=0 
1390 NEXT M:NEXT N 
1400 RETURN 

1410 REM <<<< ENTRADA DE DADOS >>>> 

1420 LE-0 : R I =0 : F I =0 

1430 A=ST I CK ( 0 ) OR STICK (1) OR STICK( 

) :FI=STRIG(0) OR SfRIG(l) OR STRIG(2): 
*«INKEY* 

1440 IF A-3 THEN RI=1 
1430 IF A— 7 THEN LE=1 
1460 FI=ABS(FI ) 

1470 FOR UW íü 70: NEXT W 
1480 RETURN 

1490 REM <<<< JOGADA >>>> 

1300 PNT =1 : I F PLY=i THEN Cü=9 ELSE CO=7 
1510 COLOR CO 

1520 PUT5PRI TE 7 , ( P( PNT , 1 ) , P(PNT , 2) ) ,CO 

,2 

1530 GOSUB 1420 
1540 IF FI=1 THEN GOTO 1600 
1350 IF LE=1 THEN PNT-PNT-1 
1560 IF R 1=1 THEN PNT-PNT+1 
1570 IF PNT =7 THEN PNT=1 
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1580 IF PNT=0 THEN PN T=6 

1590 GOTO 1510 

1600 PLAY "L20C U 

1610 FOR W=i TO 300 : NEXT W 

1620 RETURN 

1630 PUT SPR 1 TL / , ( P ( DES , 1 ) , P ( DES , 2 ) ) , C 
0,2 

1640 RETURN 

1650 REM <<<< VEZ >>>> 

1660 GOSUB 1500 

1670 FRO=PNT I PUT SPRITE 8 , ( P < FRO , 1 ) , P ( F 
RO, 2) ) ,13,2 
1680 GOSUB 1500 

1690 DES=PNT : PUT SPRITE 8, (0,0), 13, 2 
1700 GOSUB 1630 

1710 IF FRO-DES OR D ( FRO , DES ) <>0 THEN G 
OTO 1780 

1720 LI NE ( P ( FRO , 1 ) +4 , P ( FRO , 2 ) +4 ) - ( P ( DE 
S, 1) <-4 , P ( DES , 2 ) +4 ) , CO 
1730 D ( DES , FRO ) =PLY : D ( FRO , DES ) =PLY 
1740 FOR N=1 TO 6 

1750 IF D(DES,N)=PLY AND D(N,FRO)=PLY T 
HEN DD=i: GOSUB 1880 
1760 NEXT N 
1770 RETUFCN 

1780 PLAY "CDE" : GOTO 1660 

1790 REM <<<< JOGADA COMPLETA »>> 

1800 DD~0 

1810 PLY=i : GOSUB 1660 
1820 IF DD=1 THEN RETURN 
1830 PLY=2s GOSUB 1660 
1840 IF DD=i THEN RETURN 
1850 GOTO 1300 

1860 REM <<<< FIM DO JOGO >>>> 

1970 LINE ( P ( FRO , 1 ) +4 , P ( FRO , 2 ) +4 ) — ( P ( N , 
l)+4,P(N,2)+4) ,15 

Ü880 LINE (P(N,l)+4,P(N,2)+4)-(P(DES,l) 

+4 , P ( DES ,2)+4) ,15 

1890 LINE ( P ( DES , 1 ) +4 , P ( DES , 2 ) +4 ) — ( P ( FR 
0,1) +4 , P ( FRO , 2 ) +4 ) ,15 
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1900 PLAY "T140L4CL8EI 6FEL4CL8CEFGFE" 
1910 FOR UJ—1 10 200 : NEXT W 
1920 RETURN 

1930 DATA 127,149,190,117,190,55 
1940 DATA 127,24,64, 55, 64, 117 
1950 DATA 00 , 7E , 42 , 5A , bA , 42 , 7E , 00 
1960 DATA FF, 01 , BD, A5 , A5 , BD , 81 ,f F 
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Corrida de Dados 



Foi Dada a Partida! 


Esic é o primeiro dc uma serie de ires jogos de dados. Todos usam a mes- 
ma rotina central; os jogos sào escolhidos através dc um menu. 

Corrida dc Dados é um jogo dc corrida no qual o resultado dos da 
dos determina a distância percorrida pelos cavalos. l’odc ser jogado por 
duas a quatro pessoas. O botào de tiro (ou barra de espaço) deve ser aper- 
tado duas vezes, urna para sacudir os dados e outra para jogá-los na me- 
sa. Isso quer dizer que o jogador pode sacudir os dados durante o tempo 
que quiser. 

Os cavalos disputam para ver qual conseguirá chegar primeiro ao la- 
do direito da tela. Entretanto, para que o último jogador nào seja preju- 
dicado, o resultado só é anunciado depois que termina uma rodada. 

O jogo pode ser interrompido a qualquer momento, bastando para 
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isso entrar com l> (de “Desisto”). Nesse caso, o programa volta ao menu. 
Nota: Este jogo c os dois que sc seguem usam uma rotina chamada Da- 
dos, que deve ser carregada primeiro e salva em fita. Os jogos podem ser 
então acrescentados um por um. Não será possível escolher um jogo a 
partir do menu até que todos os três tenham sido carregados. 


1000 RLM <<<< DADOS - ANDY/JIM >»> 

1010 CLEAR 500 

1020 ON I NTERVAL= 1 0 GOSUB 1160:GOSUB 14 
70 

1030 SCREEN i ,3: WIDTH 30:KEY OFF 
1040 GOSUB 1190 : COLOR 15,0,1 
1050 GOSUB 3220 

1060 LOCATE 4,3:PRINT "1 Corrida de Da 
dos " 


10/0 LOCATE 4, 6 SPRINT ”2> Olhos de Cobr 
a" 

1080 LOCATE 4, 9 SPRINT "3> Craps" 

1090 INTERVAL ON 

1100 A=VAL< INKEY$) : IF A<1 OR A>3 THEN 1 
L00 

1110 PLAY "o4aó4 " 

1120 ON A GOTO 1710,2250,2670 

1130 LOCATE 0,7sPRINT "Aperte qualquer 

tecla para ver o menu ou *P' para par 


1140 A$= I NKEY$ s IF A$=" " ÍH1N 1140 ELSE 

1F A$="P" OR A$=" p" THEN 2070 

1150 GOSUB 1500: GOTO 1060 

1160 INTERVAL OFF : A*=I NKEYS 

1170 II A1i= " d " OR A*= M D" THEN SOUND 8,0 

: GOTO 1150 ELSE INTERVAL OMsRETURN 

1180 REM <<<< TELA >>» 

1190 COLOR 14: FOR X=0 ÍU 31 s LOCATE X,ll 
SPRINT "L" sLUCATE X,20:PRINT " [ " sNEXT X 
1200 FOR Y=12 TO i?:LOCATE 0,Y:PRINT "[ 
" sLOCATE 31 , Y : PRINT "L"; sNEXT Y 
1210 RETURN 

1220 REM <,<<< SORTEIO »» 

1230 SOUND 0,0: SOUND i, 3: SOUND 8,10 
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1240 PUT SPRITE 1, (25,90) ,15,11 
1250 PUT SPRITE 2 , ( 57 , 90 ) , 15 , 12 
1260 PUT SPRITE 3 , ( 25 , 122 ) , 1 5 , 13 
1270 PUÍ SPRITE 4, (57,122) ,15,14 
1280 R7.«RND< -TI ME) *6 
1290 Di-INT(RND(R7.) *6)+l 
1300 RV.-RND (-TI ME ) *6 
1310 D2»INT(RND(R%) *6)+i 
1320 SOUND 8,0 

1330 A$>= I NKEY$ : I F A*-CHR*(32) THEN 1390 
1340 PUT SPRITE i , ( 35 , 90 ) , 15 , 1 1 
1350 PUT SPRITE 2 , ( 67 ,90 ) , 15, 12 
1360 PUF SPRITE 3, (35, 122) , 15, 13 
1370 PUT SPRITE 4 , < 67 , 122 ) , 1 5 , 14 
1380 AS* 1 NKEY$ : IF ASOCHR* ( 32) THEN 123 
0 

1390 PUT SPRITE 1 , ( 76 , 95 ) , 1 5 , 7 
1400 PUT SPRITE 2, ( 108,95) , 15,0 
1410 PUT SPRITE 3, (76,127) ,15,9 
1420 PUT SPRITE 4 , ( 100 , 127 ) , 15 , 10 
1430 PUT SPRITE 5 , ( 12 , 127 ) , 1 5 , Dl 
1440 PUT SPRITE 6 , ( 44 , 127 ) , 1 5 , D2 
1450 RETURN 

1460 RPM <<< I NIC I ALI Z AÇftO >>>> 

1470 DIM S*(14) ,P(4,3) ,0(5) 

1480 RETURN 

1490 REM <<<< APAGAR O MENU >>>> 

1500 FOR Y~0 TO 10 : LOCATE 0,Y 
1510 PRINT STR INGS ( 30 , " "):NEXT Y 
1520 PLAY "o3«*64" : RETURN 
1530 REM <<<< JOGADORES >>>> 

1540 GOSUB 1500 

1550 LOCATE 0,0: PRINT "NO. DE JOGADORES 

(2-4)" 

1560 AS = 1 NK.EYS : PL=VAL ( AS ) 

1570 IF PL<2 OR PL>4 THEN 1560 
1580 PLAY "o5g64" 

1590 GOSUB 1500 
1600 FUR N°1 TO 4 
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1610 P ( N , 1 ) =0 

1620 NEXT N 

1630 FOR N-l TO PL 

1640 Ü(N)=1 

1650 NEXT N 

1660 FOR Q=N TO 4 

1670 O ( Q ) “0 

1600 NFXT Q 

1690 RETURN 

1700 REM <<<< CORRIDA DE DADOS >>>> 

1710 COLOR , , 13 : GOSUB 1540 

1720 FOR N=1 TO 4 

1730 P(N, 1 )=0:P(N,2)^2*N-1 

1740 NFXT N 

1750 RESTORE 1810 

1760 FOR N=0 TO 8 

1770 READ A 

1700 LOCATE 31, N 

1790 PRINT CHRÍ(A) 

1800 NEXT N 

1810 DATA 18B,67,72,69, 71 ,65,68,65, 188 
1820 GOSUB 2200 
1830 FOR W=1 TO PL 

1840 LOCATE 18, 13: PRINT "JOGADOR"; 

1850 LOCATE 20,15:PRINT W 
1860 PLAY "o3f 64 " 

1070 Aí^INFEY*: IF A*="" THEN 1870 

1000 GOSUB 2080 

1890 GOSUB 1230 

1900 FOR D—l TO ( D1+D2 ) *2 

1910 GOSUB 2160 

1920 P(W,I)=P(W, 1 )+l 

1930 GOSUB 2180 

1940 NEXT D 

1950 NEXT UJ 

1960 WI-0 

1970 FOR N-i TO 4 

1980 IF WI>0 THEN 2000 

1990 IF P ( N , 1 ) >220 THEN WI=N 
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2000 NEXT N 

2010 IF WI=0 TIIFN 1030 
2020 GGSUB 1500 
2030 GOSUR 2080 

204W lÜI.AH 1,0:11 WIO0 THEN PRINT "O 
jogador" ;WI j "ganhou! " ELSE PRINT "Ningu 
òm ganhou!" 

2050 REM <<<< FIM DO JOGO >»> 

2060 GOTO 1130 

2070 SCREEN 0: COLOR 15,4,4: END 
2080 PUI SPRITE 5, ( 100, 100) ,1,0 
2090 PUT &PRITE 6, (100,100) ,1 ,0 
2100 RETURN 
21 10 l ND 

2120 FOR N=i TO 4 

2130 LOCATE I NT ( P ( N , 1 ) /8 ) , P ( N , 2 ) 

2140 PRINT " " : NEXT N 
2150 RETURN 

2160 LOCATE INT ( P ( W , 1 ) /8 ) , P ( W , 2 ) 

2170 PRINT " " : RETURN 

2100 LOCATE INT(P(W,l)/8) ,P(W,2) 

2190 PRINT CHR4» ( 201 ) : RETURN 
2200 FOR N— 1 TO 4 

2210 LOCATE INT < P < N , 1 ) /B ) , P < N , 2 ) 

2220 PR INT Cl IR* ( 201 ): NEXT N 
2230 RETURN 
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Olhos de Cobra 



Façam Suas Apostas! 


Este c o scgdnclo dos três jogos de dados. Corrida de Dados deve ser car- 
regado em primeiro lugar; em seguida, carregue Olhos de Cobra. As ins- 
truções para jogar os dados são as mesmas. 

O jogo é para quatro jogadores e as apostas aparecem na tela. No 
início, c estabelecida uma meta em cruzados, que pode variar entre 
C/S 40,00 e C/S 400,00. A banca começa com C/S 5,00 se a meta é me- 
nor que CzS 200,00 e Cz$ 10,00 se a meta é igual ou maior que CzS 200,00. 
Os jogadores então jogam os dados, um de cada vez. Se um jogador lira 
uma dobradinha, recebe o dinheiro da banca. Sc um jogador tira “olhos 
de cobra” (duplo um), recebe o dobro do dinheiro da banca. Cada vez 
que a banca paga a um jogador, seu dinheiro volta ao valor inicial. 

Depois dc cada rodada, a banca recebe uma quantia igual ao valor 
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inicial. O jogo continua até que um jogador consiga atingir a meta. Para 
interromper o jogo antes do final e voltar ao menu, entre com D. 

2240 REM <<<< OLHOS DE COBRA >»> 

2250 COLOR, ,6:G0SUB 1540 

2260 LOCATE 0,22:PRINT "Qual ê a meta " 

2270 INPUT LI*:LI=VAL(LI$) 

2280 LOCATE 0,22:PRINT STR1NG$(28," " ) 
2290 IF LI >400 OR LI <40 THEN 2260 
2300 UA=5 : GOSUB 1500: IF LI >200 THEN UA= 

10 

2310 LOCATE 5,0:PRINT "1" 

2320 LOCATE li,0:PRINT "2" 

2330 LOCATE 17,0 sPRINT "3" 

2340 LOCATE 23,0:PRINT "4" 

2350 LOCATE 0,1 sPRINT STR I NG$ ( 30 
2360 LOCATE 0,10:PRINT STRINGÍ ( 30 
2370 LOCATE 0,7:PRINT STR I NG$ ( 30 
2380 Kl “0 
2390 KX-KX+UA 
2400 PE= 1 

2410 FOR N=*l TO 4 : LOCATE N*6-2,3 

2420 PRINT P ( N , 1 ) : NEXT N 

2430 LOCATE 18,13:PRINT "Jogador" 

2440 LOCATE 20,i5:PRINT PE 

2450 GOSUB 2480: IF P(PE,i)>LI THEN 2640 

2460 PE-PE+1 : I F PE>PL THEN 2390 

2470 GOTO 2410 

2480 A*=INKEY* 

2490 IF A$=" " THEN 2480 

2500 LOCATE 0,8:PRINT "A banca tem" ;KI 

2510 GOSUB 2080 

2520 GOSUB 1230 

2530 IF Dl = i AND D2=l THEN GOSUB 2560 
2540 IF D1=D2 AND DiOl THEN GOSUB 2600 
2550 RETURN 

2560 PLAY M o4a64b64c64" 

2570 P ( PE , 1 ) *»P ( PE , 1 ) +KI #2 
2580 KI=UA 



2590 RETURN 

2600 PLAY "o4g64e64d64 u 
26.10 P ( PE , 1 ) ~P ( PE , 1 ) +K I 
2620 K I -UA 
2630 RETURN 
2640 W1~PE 
2650 GÜTO 2020 
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Craps 



Igualzinho a Las Vegas! 

Aqui está a versão para o seu microcomputador do jogo de dados que 
os cassinos de Las Vegas tornaram popular. 

Dois a quatro jogadores agora podem fazer de conta que estão em 
I as Vegas, por cortesia do MSX. 

No inicio, cada jogador dispõe de CtS 100,00 (você pode mudar pa- 
ra dólares, para tornar o jogo mais emocionante!). Na sua vez, o jogador 
pode apostar qualquer quantia até o máximo dc que dispõe na ocasião. 
Lm seguida, está na hora de jogar os dados. 

Se da primeira vez o jogador obtém 7 ou 11, recebe uma quantia igual 
á que apostou e passç a vez. Sc obtem 2, 3 ou 12, peide tudo que apostou 
c passa a vez. Sc obtem qualquer outro número, este número passa a ser 
o ponto , isto é, o valor que .ele vai tentar obter novamente. O jogador 
continua a lançar os dados até obter o ponto, caso em que recebe uma 
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quanda igual à que apostou, ou 7, caso cm que perde a aposta. Nos dois 
casos, o jogador passa a vez. 

Sc um jogador perde todo o dinheiro que tem, é imediatamente ex- 
cluído do jogo. O jogo prossegue até que reste apenas um jogador. 
Para interromper o jogo antes do final e voltar ao menu, entre com D. 
Antes de carregar este jogo, carregue Corrida de Dados e Olhos de 
Cobra. 

2660 REM <<<< CR APS »>> 

2670 CGLOR , , 4 : GOSUD 1540 
2600 LOCATE 5,0 sPRINT "1" 

2690 LOCATE 11,0 SPRINT ,, 2• , 

2700 LOCATE 17,0:PRINT "3" 

2710 l UCATl 23, «SPRINT "4" 

2720 LOCATE 0,1 sPRINT STR I NGT ( 30 

2730 LOCATE 0,10 sPRINT STR I NG$ ( 30 

2740 LOCATE 0,7 sPRINT STRINB*< 50 i "- ,, )| 

2750 POR N=1 TO 4 

2/60 P(N,i)=10tó 

2770 NEXT N 

2700 FOR W=l TO PL 

2790 FOR N-i TO 4 

2800 LOCATE N*6 ,3:PRINT " : l OCATE N#6 
-2, 5 sPRINT P< N. ' | 

2810 NEXT N 

2820 IF P(V),1)<1 THEN 2990 

2830 LOCATE 0,22 sPRINT "Jogador" ;W; *'apo 

sta" ; 

2840 INPUT B* 

2850 LOCATE 0,22 sPRINT STR I NG$ ( 23 , " " ) 
2860 BE=9AL ( B * ) s IF BE 1 OR BE >P(W,1) TH 
EN PLAY "o4a64 " s GOTO 2830 
2870 GQSUB 20S0sGOSUB 1230 
2880 T-D1+D2 

2090 IF T -7 OR T=ll THEN 3130 

2900 IF T -2 OR T=3 OR T=12 THEN 3170 

2910 PO-T 

2920 LOCATE 0,0 sPRINT "Jogue de novo . 

• I 


2930 A$=INKEY$: IF A$« ,,M 


THEN 2930 
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2940 GOSUB 2080 : ROSUB 1230 

2950 T=D1+D2 

2960 IF T =PO THEN 3130 

2970 IF T-7 THEN 3170 

2980 GOTO 2920 

2990 NEXT W 

3000 Fl =0 s CO”0 

3010 FOR N=1 TO PL 

3020 IF Cü=l THEN 3050 

3030 IF P ( N , 1 ) >0 AND FL=i THEN CO=l 

3040 IF P ( N , 1 ) >0 THEN FL=1 

3050 NEXT N 

3060 IF CO«l THEN 2780 
3070 WI=0 

3080 FOR N=1 TO PL 

3090 IF W t < >0 THEN 3110 

3100 IF P ( N , 1 ) >0 THEN WI=N 

3110 NEXT N 

3120 GOTO 2020 

3130 PLAY n o4g64f64e64" 

3140 LOCATE 0,8:PRINT " Vo ce ganh 

ou ? " 

3150 P(W,l)=P(W,i)+BE 

3160 GOTO 2990 

3170 PLAY M o4e64gó4" 

3180 LOCATE 0,8:PRINT " Voc A perde 

u! " 

3190 P(W, 1 )=P(W, 1 )-BE 
3200 GOTO 2990 

3210 REM <<<< DEFINIR SPR I TES/CARACTERE 

S >>>> 

3220 RESTORE 3330 

3230 FOR S=1 TO 14 :S* ( §)«" M 

3240 FOR DD-l TO 32 

3250 READ DA : S* ( S ) =S$ ( S ) +CHR$ ( DA ) 

3260 NEXT DD : SPR I TES ( S ) — S$ ( S ) 

3270 NEXT S 

3280 FOR CH=200 TO 202 
3290 FOR DD-0 TO 7 
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3300 READ DA:VPDKt CH*8»-DD,DA 
3310 NFXT DD : NEXT CH 
3320 RE rURN 

3330 DATA 31 ,32, 64 , 255, 128 , 128, 120, 128, 

130.128.128.128.128.128.255.0 

3340 DATA 255,3,5,249,9,9,9,9,9,9,9,9,1 
0,12,248,0 

3350 DATA 31,32,64,255,128,144,128,128. 

128.128.128.128.128.128.255.0 

3360 DATA 255 , 3 , 5 , 249 , 9 , 9 , 9 , 9 , 9 , 9 , 9 , 73 , 

10.12.248.0 

3370 DATA 31,32,64,255,128,144,128.128, 

130.128.128.128.128.128.255.0 

3380 DATA 255,3,5,249,9,9,9,9,9,9.9,73, 

10.12.248.0 

3390 DATA 31,32,64,255,128,144,128,128, 

128. 120.128.144.128.128.255.0 

3400 DATA 255,3,5,249,9,73,9,9,9,9,9,73 
,10,12,248,0 

3410 DATA 31,32,64,255,128,144,128,128, 

130.128.128.144.128.128.255.0 

3420 DATA 255,3,5,249,9,73,9,9,9,9,9,73 
, 10,12,248,0 

3430 DATA 31,32,64,255,128,144,128,128, 

144.128.128.144.128.120.255.0 

3440 DATA 255,3,5,249.9,73,9,9,73,9,9,7 

3.10.12.248.0 

3450 DATA 0,0,0,0,0,0,0.0,3,5,9,9,8,16, 

16.16.0. 0.0.0.0.0.0.0.0.192.48.12.131.1 
28,128,128 

3460 DATA 0.0.0,0,0,0,0,0,0,0,0,0,0,224 
,28,3,0,0,0,0,0,0,0,0,0,0,0.0,0,0,0,0 
3470 DATA 32,32,32,32,32,32,32,32,33,17 
, 10,18,10,10,7,0,128,64,64,64,64.128,12 

8 . 128 .0. 0. 0.0. 0.0. 255 . 0 

3480 DATA 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 2 
^•0,0,1 9 7 , 48 ,8,4,4,4,4.4,8,8,8,16, 16, 32 , 

192.0 
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3490 DATA 0,0, 0,0, 0,0, 0,0, 0,0. 0,0. 0,1,1 
. L ,0,0,0,0,15,16, 32 , 32 , 64 , 64 , 128 , 128 ,12 
b , M , 0 

3500 DATA 0,0,0,0,240,8.4,4,2,2,2,2,1,1 

.1 , ! .0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12 

O 

3510 DATA 1,2, 2, 2, 2, 2, 4, 4, 4, 4, 4, 2, 1,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,128,112,15,0 
351 0 DA A 0,0,0,0,0,0,0,0,0,0,0,0,1,14, 

240 .0. 1 28 .128.64.64.64. 64 . 64 . 32 . 32 . 32 . 3 

2 . 64 . 128 .0. 0.0 

3530 DATA 0,124.198.198,198,108,230,0 
3540 DA IA 15,7,13,1 20 , 204 , 204 , 204 , i 20 
3550 DATA 24,24,24,24,24,24,24,24 
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Vinte-e-Um 



Um 21 Real Rode Quebrar a Banca 


Nesta versão para o MSX do conhecido jogo de cartas, a banca começa 
com C/S 500,00 c cada jogador tem C/S 100,00. Um ou dois jogadores 
jogam contra a banca, tentando chegar o mais perto possível de vinte e 
uni pontos. 

Inicialmente, cada jogador recebe uma carta aberta e a banca recebe 
uma carta fechada. Os jogadores podem então apostar qualquer quantia 
até o máximo dc que dispõem na ocasiào. Uma segunda carta é distribuí- 
da. Ao chegar a sua vez, cada jogador pode fazer as seguintes opções: 

Segurar. Se o total das cartas è 16 ou mais e o jogador aperta a tecla S, 
ele passa a vez 

Pedir. O jogador aperta a tecla P para pedir mais uma carta. 
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Dobrar. Se o jogador acha que está com um jogo muito bom, aperta a 
leda D para dobrar a aposta. Nesse caso, sempre recebe mais uma carta. 

No vinte-c-um, o ás pode valer 1 ou 1 1, de acordo com o que for 
mais conveniente para o jogador. As figuras (valete, dama e rei) valem 
10 pontos. As cartas restantes têm um valor igual ao dos seus números 
(o 10 vale 10. o 9 vale 9 etc.). Sc a soma dos pontos de um jogador ultra- 
passa 21, ele perde a aposta c passa a vez. Depois que todos os jogadores 
terminam, a banca joga sua mão e faz os pagamentos. É preciso náo es- 
quecer que os jogadores jogam contra a banca e não um contra o outro. 

O resultado de cada mão é calculado da seguinte forma: o jogo mais 
alto é o 21 real (21 pontos com duas cartas, ás c dama, por exemplo). 
Fm seguida vem a vaza de cinco cartas , qualquer conjunto dc cinco car- 
tas cujo conjunto não exceda 21. O terceiro maior jogo é o vinte-e-um 
com qualquer número dc cartas. Sc nenhum desses jogos estiver presen- 
te, prevalece a mão com maior número dc pontos. Hm caso de empate, 
ganha a banca. 

O jogo continua até todos os jogadores irem à falência ou a banca 
quebrar. Para recomeçar o jogo, basta apertar a tecla R. 

.1000 REM v < < < VINTE-E-UM - ANDY/JIM »> 

1010 GCREEN 0: COLOR 15,4:KEY OFF 
.1020 DEFINT A-Z 

1030 DIM PA(52) ,AV(52) ,PAC*(5,13) ,CC(3) 
1040 DIM CX ( 4 ) , CY ( 4 ) 

1050 DIM NOC ( 4 ) , P ( 2 ) 

1060 DIM PLC(3,3) ,BC( 5) 

1070 DIM MO ( 2 ) , P% ( 2 ) 

1000 GOSUB 3950 
1090 GOSUB 3060 

1100 MO ( 1 ) “100 : MO ( 2 ) =100 : MC=500 

1110 CC ( 1 ) =20 : CC ( 2 ) =33 : CC ( 3 ) =6 

1120 SC ( 1 ) =0 : SC ( 2 ) =0 

1130 GOSUB 2520 

1140 GOSUB 2640 

1150 CL.SsIF NP=i THEN P(2)=0 

1160 IF P(1)=0 AND P ( 2 ) =0 THEN 4640 

1170 IF P(1)=0 THEN BE(1)=0 

1180 IF P(2)=0 THEN BE ( 2 ) -0 

1190 GOSUB 3140 
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1200 CX(1)=15:CX(2) =28 
1210 CY ( 1 ) =2 : CY ( 2 ) -2 
1220 RX-2 : BY=2 
1230 GOSUB 3340 
1240 FOR Q=1 TO NP 
1250 IF P(Q)-0 THEN 1280 
1260 GOSUB 3410 
1270 GOSUB 4380 
1280 NEXT Q 

1290 CX=BX :CY=BY:FOR Q=1 TO NC 

1300 GOSUB 2980 : CY=CY+2 : CX=CX+1 : NEXT 0 

1310 GOSUB 3740 

1320 FOR Q=1 TO NP:IF P(Q)=0 THEN 1380 
1330 CY=CY ( 0 ) : CX^CX < Q ) 

1340 CY=CY+2 : CX=»CX + 1 
1350 GOSUB 3880 
1360 GOSUB 4380 
1370 CX(Q)=CX 
1380 NEXT G 

1390 CX=BX+i : CY-BY+2 : GOSUB 2940 
1400 GOSUB 2900 
1410 GOSUB 3490 

1420 REM <<<< CONTAGEM DE PONTOS >>>> 
1430 Q=3 

1440 IF NP=2 THEN 1450 ELSE IF SC(1)>21 
THEN P$ ( 1 ) ="L " : GOTO 1610 
1450 IF SC ( 1 ) > 2 1 AND SC(2)>21 THEN P* ( 1 
)*"L" sP*(2)="L" :GOTO 1610 
1460 FOR W=1 TO NC 
1470 CX=BX :CY=(BY-2)+W*2 
1 400 PLC(3,W)=BC(W) 

1490 GOSUB 3270: GOSUB 2760 

1500 BX=BX+i 

1510 NEXT W 

1520 BX-CX : BY=CY 

1530 FOR W=1 TO NC 

1540 PLC ( 3 , W ) =BC ( W ) : NEXT W 

1550 Q“3 : NOC ( 3 ) ~NC : CX ( 3 ) =BX : GOSUB 4380 

1560 IF SC (3) <16 THEN GOSUB 2940 ELSE G 
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OTO 1610 

1570 BX-BX+l : BY-BY+21 PLC (3 ,NC )«8C (NC) :Q 
-3 : CX=BX : CY=BY : W=NC : GOSUB 3270sGOSUB 27 
60 

1500 NOC ( 3 ) — NC : GOSUB 4380 
1590 IF NC=5 THEN 1610 ELSE GOTO 1560 
1600 F-(RND(i )#2)+17: IF SC(3)>F THEN GO 
SUB 2940: GOTO 1570 
1610 0=1 

1620 IF P ( Q ) =0 THEN 1770 

1630 IF SC ( Q ) >21 THEN PS(Q)="L" :GOTO 17 
70 

1640 IF SC ( 3 ) > 2 1 1HEN PS (0)«"W" : GOTO 17 
70 

1650 II SC ( 3 ) =21 AND NC=2 THEN F*(Q)="L 
" : GOTO 1770 

1660 IF SC ( Q ) =21 AND N0C(Q)=2 THEN PS(Q 
) = *' W " : GOTO 1770 

1670 IF NC=5 AND NÜC(Ü)=5 THEN PS(Q)= M L 
" : GOTO 1770 

1600 IF N0C(Q)«5 THEN P* ( Q ) = M W" : GOTO 17 
70 

1690 IF NC-5 THEN PS ( G ) = "L " : GOTO 1770 
1700 IF SC ( 3 ) -21 AND NC=2 AND SC(Q)“21 
AND N0C(Q)-2 THEN PS (Q)="L" :GOTO 1770 
1710 IF NOC ( Q ) =5 AND NC<5 THEN PS(Q)="W 
•* -.GOTO 1770 

1/20 II SC(G)-21 AND N0C(0)=2 THEN P*(Q 
)=" " :GOTO 1770 

1730 IF SC ( Q ) >SC ( 3 ) THEN PS ( O ) =" W" : GOTO 
1770 

1740 IF SC ( □ ) =SC ( 3 ) THEN PS ( □)=" L" : GOTO 
1770 

1750 IF SC ( 3 ) >SC ( Q ) THEN PS(Q)= M L" 

1760 IF SC ( Q ) >SC ( 3 ) THEN PS(Ü)="W" 

1770 IF NP=2 AND 0=1 THFN 0=2 : GOTO 1620 
1780 IF NP=i THEN 1830 

1790 IF PS ( 1 ) ="L " AND PS(2)="L" THEN 21 
00 
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1800 

IF 

P*(1)="W" 

AND P*(2)=>"W" 

THEN 

20 

20 






1810 

IF 

PS(1 ) = "W" 

AND F*(2)="L" 

THEN 

22 

10 






1820 

IF 

P*(i)="L" 

AND P$(2)="W" 

THEN 

23 

10 






1830 

IF 

P*( i)="W" 

THEN 1870 



1840 

i nv 

IF 

P*U)» M L" 

THEN 1950 




1850 END 

1860 REM <<<< GANHA ü JOGADOR >>>> 

1870 MC=MC-BE<1) 

1880 MO( 1 )=MO( 1 )+BE( 1 ) *2 
1890 IF MC< 1 THEN 2410 
1900 GOSLIB 4500 
1910 PLAY "01L64ERC " 

1920 LOCATE i,20:PRINT "O joqador ganho 
u“ : GOSUB 4510 
1930 GOTO 1140 

1940 REM <<<< GANHA A BANCA >>>> 

1950 MOMC+BE(l) 

1960 GOSUB 4500 
1970 PLAY "04L64CFG" 

1980 LOCATE 1 , 20 SPRINT "Ganhou a banca" 
í GOSUB 4510 

1990 IF hO(l)<l THEN F*(1)=0 
2000 GOTO 1140 

2010 REM <<<< GANHAM OS DOIS JUGADORES 

»>> 

2020 MO ( 1 ) =MO ( 1 ) +BE ( 1 ) $2 
2030 MO ( 2 ) =MO ( 2 ) +BE ( 2 ) #2 
2040 MC=MC-BE(1) BE (2) 

2050 IF MC< 1 THEN 2410 
2060 GOSUB 4500 

2070 LOCATE i,20:PRTNT "Oi= doas jogador 
ganharam" 

2080 GOTO 1140 

2090 REM <<<< PERDt M US DOIS JOGADORES 

»>> 

2100 MC=MC+BE( 1 )+BE(2) 
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2110 GOSUB 4500 

2120 IF MO ( 1 ) < 1 THEN P(1)=0 

2130 IF MO ( 2 ) < 1 THEN P(2)=0 

2140 IF P(1)^0 AND P < 2 ) = 1 THEN LOCATE 1 

,20:PRINT "O jogador 2 perdeu" :PLAY "01 

L8C" 

2150 IF P(l)=l AND r*(2)~0 THEN LOCATE 1 
,20:PRINT "O jogador 1 perdeu" : PLAY "01 
L8C" 

2160 IF MO(lXi THEN P(1)^0 
2170 IF P(i)=l AND P ( 2 ) =1 THEN LOCATE 1 
,20:PRINT "Os dois jogadores perderam" s 
PLAY "01L8EDC" 

2180 GOSUB 4510 
2190 GOTO 1140 

2200 REM <<<< GANHA 0 JOGADOR i>»> 

2210 MC=MC+BE ( 2 ) 

2220 MO ( 1 ) =MO ( 1 ) +BE ( 1 ) #2 
2230 MC=MC-BE(1) 

2240 IF MO ( 2 ) < 1 THEN P(2)^0 
2250 IF MC< 1 THEN 2410 
2260 GOSUB 4500 

2270 PLAY "04L64CDEFGABAGFEDC" 

2280 LOCATE i,20:PRINT "O jogador 1 gan 
hou": GOSUB 4510 
2290 GOTO 1140 

2300 REM <<<< GANHA O JOGADOR 2 >>>> 
2310 MC-MC+BE(1) 

2320 MO ( 2 ) =M0 ( 2 ) +BE ( 2 ) *2 
2330 MC=MC-BE ( 2 ) 

2340 IF M0( 1 ) <1 THEN P(1)»0 
2350 IF MC< 1 THEN 2410 
2360 GOSUB 4500 

2370 PLAY "04L64CDEFGABAGFEDC" 

2300 LOCATE 1,20:PRINT "O jogador 2 gan 
hou" : GOSUB 4510 
2390 GOTO 1140 

2400 REM <<<< A BANCA QUEBRA >>>> 

2410 GOSUB 4500 
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2420 LOCATE 1,20 

2430 PLAY "04L64CDEFGABAGFEDCCBEFGAB" 
2440 PRINT "P=»r dbéns 1 Vocé quebrou a ba 
nca ! " 

2450 GOSUB 4510 : GOSUB 4510 
2460 CLS 

2470 PRINT "Jogador 1:";M0(1) 

2480 IF NP=2 THEN PRINT "Jogador 2:"; MO 
(2) 

2490 GOSUB 4510: GOSUB 4510: GOSUB 4510 
2500 GOTO 1090 

2510 REM <<<< GERAR BARALHO >>>; 

2520 FOR SUIT=1 TO 4 
2530 FOR CAR“1 TO 13 
2540 PAC* (SUIT , CAR ) =CHR* ( SUI T+217 ) 

2550 IF CAR<11 AND CAR> 1 THEN PAC*(SUI7 
, CAR ) =PAC* ( SU I T , CAR ) +CHR* ( CAR+220 ) 

2560 IF CAR=i THEN PAC$ ( SUI T , CAR ) -PAC* ( 
SU I T , CAR ) +CHRS (231) 

2570 IF C AR= 1 1 THEN PAC$ ( SU I T , CAR ) =1 AC$ 
( SU I T , CAR ) +CHR* ( 232 ) 

2580 IF CAR=12 THEN PAC$ ( SUI T , CAR ) =PAC* 
(SU11 , CAR ) +CHR* ( 233 ) 

2590 IF CAR=13 THEN PAC* ( SU I T , CAR ) =PAC* 
( SU I T , CAR ) +CHR* ( 234 ) 

2600 NEXT CAR 
2610 NEXT SU I T 
2620 RETURN 

2630 REM <<<< EMBARALHAR >>>> 

2640 FOR N - 1 TO 52 
2650 PA ( N ) =N : A V ( N ) = 1 
2660 NEXT N 
2670 FOR A-i TO 30 
2680 N1=INT (RND( 1 ) #51 )+l 
2690 N2”INT ( RND( 1 ) *51 ) +1 
2700 CC=PA(N1) 

2710 PA (Ni )=PAÍ N2) 

2720 PA(N2)~CC 
2730 NEXT A 
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2740 RETURN 

2750 REM <<<< DESENHAR UMA CARTA >>>> 
2760 LOCATE CX-1,CY 

2770 PRINT CHR* ( 200 ) ; s FOR Z = 1 TO 5:PRIN 
T CHR$ ( 204 ) ; : NEXT Z:PRINT CHR*(203) 

2780 LOCATE CX-1,CY+1 

2/90 PRINT CHR*<206) ; R IGHT* ( PAC* ( SUI T , C 
AR ) , i ) ; 

2800 PRINT LEFT*(PAC*(SUIT,CAR) , 1 ) ; :PRI 
NT STR ING$ ( 3 , CHR$ ( 208 ) ) ;CHR* (207) 

2010 LOCATE CX l,CY+2 

2820 PRINT CHRfc ( 206 ) ; STR I NG$ ( 5 , CHR$ ( 208 
) ) ; CHR$ ( 207 ) 

2030 LUCATE CX-i,CY+3 

2840 PRINT CHR$ ( 206 ) ; CHRS ( 208 ) ; CHR$ ( 208 

) ; 

2050 PRINT LEFTS ( PAC* ( SUI T , CAR ) , i) ;CHR* 
(208) iCHR*(208) : CHR$( 207 ) 

2860 LOCATE CX-l,CY+4 

2870 PRINT CHR* ( 206 ) ; STR I NG$ ( 5 , CHR$ ( 208 
) ) ; CHR$ ( 207 ) 

2080 LOCATE CX-1..CY+5 

7FI90 PRINT CHR$ ( 206 ) ; CHR$ ( 208 ) ; CHR1* ( 208 
) j CHR* ( 208 ) ; CHR* ( 208 ) ; R I GHT t ( PAC* ( SU l 1 , 
CAR) , 1 ) ; CHRS ( 207 ) 

2900 LUCATL CX-l.CY+6 

2910 PRINT CHR4> ( 201 ) ; STRI NG$ ( 5 , CHR$ ( 205 
) ) ;CHR*(202) 

2920 RETURN 

2930 RE M <<<< ESCOLHER CARTA DO COMPUTA 
DOR »>> 

2940 0(RND( 1)*51)+1: IF A9(C)^0 THEN 29 
40 

2950 NC-NC+1 : BC (NC)=C 
2960 RETURN 

2970 REM <<<< DESENHAR AS COSTAS DE UMA 
CARTA >>>> 

2980 LOCATE CX-i,CY 

2990 PRINT CHR$ ( 209 ) ; STR I NG$ ( 5 , CHR$ ( 2 13 
) ) ; CHR$ ( 210 ) 
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3000 FOR NN=i TQ 5:LÜCATE CX-1,CY+NN 
3010 PR1NT CHR$ ( 215 ) ; STR I NG* ( 5 , CHR$ (217 
) ) ;CHR$(216) 

3020 NEXT NN 

3030 LOCA TE CX-1 ,CY+6 SPRINT CHR*(211)íS 
1 R I NG$ ( 5 , CHR$ (214) ) ;CHR*<212) 

3040 RETURN 

3050 REM <<<< INICIO DO JOGO >>>> 

3060 ÜLS 

3070 LOCATE 13,i:PRINT "VINTE E- UM" 

3080 PRINT :PRINT "1 ou 2 jogadores?" 
3090 NP-VAL ( JNPUT*(1 ) ) : IF NP<1 OR NP>2 
THEN 3090 
3100 BEEP 

3110 FOR Q-l TO NP:P(Q)-1 :NEXT Q 
3120 RETURN 

3130 REM «« DAR AS CARTAS >>>> 

3140 FOR Q-l TO NP 

3150 Cl= ( RND ( T I ME ) *51 ) +1 

3160 IF AV ( Cl ) “0 THEN 3150 

3170 A V (Cl) “0 

3180 PLC (0,1) =C i 

3190 NEXT Q 

3200 Cl= ( RND ( -T I NE ) * 51 ) +1 
3210 IF AV ( Cl ) “0 THEN 3200 
3220 AV ( Cl ) -0 
3230 BC ( 1 ) =C1 

3240 NOC ( 1 ) =1 ; NQC ( 2 ) -1 : NC=i 
3250 RETURN 

3260 REM <<<< INTERPRETAR UMA CARTA >» 

3270 S=PLC(Q,W)/13:CAR«PLC(Q,W) MOD 13: 

IF CAR“0 THEN CAR=13 

3280 IF S>=0 THEN SUIT=1 

3290 II S > = 1 THEN SUIT^2 

3300 IF S>=2 THEN SUI1=3 

3310 IF S>«3 THEN SUIT=4 

3320 RETURN 

3330 REM <<<< DCSLNHAR A TELA >>>> 
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3340 LOCATE 1,0: PR INT "BANCA" , "JOGADOR 
1 " , s IF NP-2 THEN l OCATE 27,0:PRINT "JOG 
ADOR 2" 

33 50 LÜCAÍE 1,19:PRINT P(1)<>0 T 

HEN LOCATE 14,19:PRINT "V 
5360 IF NP=2 AND P(2)<>0 IHLN LOCATE 27 
, 19 : PR INT "V 

3370 LOCATE 1,18: PR INT "RESERVAS" :LOCAT 
E i,17lRRINT " Total i" s IF P(i)<: 0 THEN 

LOCATE 14,17: PR INT "Total:" 

3380 IF NP-2 AND P(2)<>0 THEN LOCATE 27 
,17: PR INT "lotei:" 

3390 RETURN 

3400 REM <<<< DESENHAR l IMA MAO »>> 

3410 CX«CX(Q) :CY-CY(Q) 

3420 FUR W— 1 IO NOC(Q) 

3430 GOSUB 3270 

3440 GOSUü 2760 

3450 CY=CY *-2 : CX=CX + 1 : NEXT W 

3460 LOCATE CC(0)~5, 19: PR INT MO ( ü ) 

3470 RETURN 

3480 REM <<<< SEGURAR >>>> 

3490 FOR Q=1 TO NP:IF P(Q)=0 THEN 3650 
3500 CX ( Q ) =CX ( Q ) +1 

3510 LOCATE 1,20: PR INT STRING*(39," " ) 
3520 LOCATE 1,20:PRINT "Jogador";Q 
3530 LOCATE 1,21: PR INT "Segurar : Pedir : D 
obrar : Roc.uinb-t; ar" 

3540 A$=1NKEY$ : IF A$="" THEN GOTO 3540 
3550 A*=CHR*(ASC<A*) AND 223) 

3560 IF At.= "S" OR A*="P" ÜR A$="D" OR A 

*="R" THEN 3570 ELSE 3540 

3570 CX=CX (O) :CY=CY(Q)+(2*N0C(G) ) 

3580 IF A*="D" THEN 4530 

3590 IF A*="R" THEN 1090 

3600 IF A*="3" AND SC(Q)>15 THEN GOSUB 

3670 : CX=CX+1 : GOTO 3650 

3610 IF A*="P" THEN GOSUB 3690 : CX-CX + 1 : 
CX ( G ) =CX ( Q ) +1 
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3620 GÜÜUD 43Ü0 

3630 IF Sü ( Q ) >21 THEN LOCATE CC(ü)-6,20 
: PR I NT "ESTOUROU” : GÜSUB 4510:0010 3650 
3640 IF NQC ( U ) < > 5 THEN 3540 
3650 NEXT Q 

3660 LOCATE 1,20: PR TNT STRING$(39, " " ) : 
RETURN 

3670 GOSUB 4300 : LUCATE CC ( Q ) , 17 : PR iNT M 
"sLOCATE CC ( Q ) ,17: PR INT SC(Ü):RETURN 
3680 REM <<<< PEDIR >>>> 

3690 C=(RND( 1)*51)+1 : IF AV(C)=0 THEN 36 
90 

3700 AV ( C ) =0 : NOC ( □ ) =NOC ( Q ) +1 
3710 PLC(Q,NOC(Q) )=C:W=NOC(Q) :GOSUEi 327 
0 : GOSUB 2760 
3720 RETURN 

3730 REM <<<< APOSTAR >>>> 

3740 LOCATE 2, 19: PR INT MC: FOR Q=1 Tü NP 
3750 IF P ( Q ) - 0 THEN 3850 
3760 LOCATE 1,20: PR INT STRINGS ( 39 , " ") 
3770 LOCATE 1,20: PR INT "Jogador " ;Q;" S 
uâ ãpoãtâ" ; 

3780 LOCATE CC ( Q ) -6 , 18 : PR I NT "Aposta"; 
3790 1NPUT BE$:BE(0)=VAL(BE*) 

3800 IF BE ( O ) <1 THEN BE ( Q ) =M0 ( O ) +1 
3810 IF BE ( Q ) >M0 ( Q ) THEN LOCATE CC(Q)+2 
( 18sPRitf| ” " : GOTO 3760 

3820 LOCATE CC ( Q) , 19 : PR INT " 

3830 MO ( Q ) =M0 ( Q ) —BE ( Q ) 

3840 LOCATE CC ( 0 ) -4 , 19 : PR INT " ":LOCA 
TE CC(Q)-5, 19: PR INT MO(Q) 

3850 NEXT Q 
3860 RETURN 

3870 REM <<<< DAR OUTRA CARTA »» 

3880 C- ( RND (l)#5i)+l 
3890 IF AV ( C ) =0 THEN 3880 
3900 PLC(Q,NÜC(Q) +1 )-C:AV(C)=0 
3910 N0C(Q)=N0C(Q)+1 

392E W=N0C(Q) : GOSUB 3270: GOSUB 2760 
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3930 RETURN 

3940 REM <<<< CARACTERES »>> 


3950 RE ST ORE 4020 

3960 FOR C»200 TO 234 

3970 FOR B-0 TO 7 

3980 READ A : VPOKE 2048+C*8+B,A 

3990 NEXT D 


4000 

4010 

4020 

4030 

4040 

4050 

4060 

40 70 
40b0 
24 

4090 

48 

4100 

52 

4110 

4120 

4 1 30 
4140 
4150 
4 1 60 
4170 
4180 
4170 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
2 


NEXT C 
RETURN 

DATA 0,60,124,124 , 124,124,124,124 
DATA 124,124,124,124,124,124,60,0 
DATA 248 , 248 , 248 , 248 , 248 , 248 , 240 , 0 
DATA 0,240,248,248,248,248,248,248 
DATA 0 , 252 , 252 , 252 ,252,252,252, 252 
DA 1 A 252 , 252 , 252 , 252 , 252 , 252 , 252 , 0 
DA I A 124 ,124,1 24 , 124 ,124,124,124,1 

DATA 248 , 248 , 243 , 248 , 248 , 248 , 248 , 2 

DATA 252 , 252 , 252 , 252 , 252 , 252 , 252 , 2 

DATA 0,60,84,104,84,104,84,104 
DATA 0,240,88,168,88,168,88.168 
DATA R4, 104,84,104,84,104,60,0 
DATA 88 ,168,88, 168 ,88,168, 240 , 0 
DATA 0 , 252 ,84,168,84,168,84.168 
DA I A 04, 168,84,168,84,168,252,0 
DA l A 85 ,106,85,106,85,106,85,1 06 
DATA 88,168,88,168,88,168,88,168 
DATA 84, 168,84, 16B, 84, 168,84, 168 
DATA 252,140, 140,04,4,84,220,140 
DATA 220, 140,4,4,4, 140,220,252 
DATA 252, 180,0,0,0, 132,204,252 
DATA 220,140,4,4,4,4,220,140 
DATA 140,116,244,204.188,124,4,252 
DATA 4,244,236,204,244,116,140.252 
DATA 236 , 204 , 172 , 108 , 4 , 236 , 236 , 252 
DA I A 4,124,12, 244 ,244,116,140,252 
DATA 204,188,124,12,116,116,140,25 
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4290 

4300 

52 

4310 

52 

4320 

4330 

4340 

52 

4350 


DATA 4 , 244 , 236 , 220 ,188,188,188,25 
DATA 140,116,116,140,116,116,140, 

DATA 140,116,116,132,244,236,156,2 

DATA 100,88,88,88,88,88,100,252 
DATA 220,172,116,116,4, 116,116,252 
DATA 1 96 , 236 , 236 , 236 , 236 ,108,156,2 

DATA 1 40, 116, 116, 116,84, 108, J 48,25 


4360 DATA 116,108,92,60,92,108,116,252 
4370 REM <<<< PLAYERS SCQRE >>>> 

4380 SC ( 0 ) ®0 : AC=0 : FOR 2=1 TU NUÜ(0):W=Z 
4390 GGSUB 3270: IF R I GHT % ( PAC$ ( SU I T , CAR 
) ,1)=CHR*(232) UR R I GHT ( P AC $ ( SU I T , CAR ) 
, 1 ) =CHR$ ( 233 ) OR R IGHT* ( PAC* ( SU I T , CAR ) , 
1 ) =CHR$ ( 234 ) IHEN SC ( G ) =SC ( Q ) +10 : GOTU 4 
420 

4400 IF R I GHT $ ( PAC$ ( SU I T , CAR ) , 1 ) -CHR$ ( 2 
31) THEN AC=AC+1 :GOTO 4420 
4410 PU=ASC ( R I GHT t ( PAC$ ( SU 1 I , CAR ) ,1) )-2 
20 : SC ( Q ) =SC ( Q ) +PU 
4420 NEXT 2 : I T AC;>0 THEN 4460 
4430 LÜCATE CC ( Q ) , 17 : PR IMT " " : LOCATE 

C C ( Q ) ,17: PR I NT SC(Q) 

4440 RETURN 

4450 REM <<<< AS NA MAO >>>> 

4460 FOR R=1 TO AC 

4470 IF SC (Q) +11 21 THLN SC ( Q ) “SC ( Q ) +1 
ELSE SC ( Q ) =SC ( Q ) +1 1 
4480 NEXT R 
4490 GOTO 4430 

4500 LÜCATE 1,20 :PR1NT STR ING* ( 39 , " M ): 
RETURN 

4510 FOR T“1 TO 1400: NEXT T: RETURN 
4520 REM <<<< DOBRAR >>>> 

4530 IF MO ( O ) <BE ( Q ) THEN 3620 
4540 BE ( Q ) -BE ( Q ) *2 


M K) 
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4550 Mü ( Q ) -MO ( Q ) -BE ( Q ) /2 
4560 GOSUB 3690 

45/0 LOCATE CC ( Q ) +1 , 18 : PRINT 11 
4580 LOCATE CC(Q) +1 , lBsPRINT BE ( Q ) 

4590 LOCATE CC ( G ) -5 , 19 : PRINT " 

4600 LOCATE CC ( Q ) -5 , 19 : PR I NT MO(Q) 

4610 CX=CX + 1 :CX (U)=*CX (Q)+l 
4620 GOTO 3590 

4630 RLM <<<< FIM DO JOGO >>>> 

4640 GOSUB 4500 : LOCATE 0,20:PRINT "Acab 
ou o dinhtíiru de todos os jogadores" 
4650 GÜSUB 4510: GOTO 1090 



14 

Maior-Menor 



O Dobro ou Nada! 


Aqui está a versào computadorizada de outro conhecido jogo dc cartas. 

Cada jogador começa com CzS 150,00 c recebe onze cartas. A pri- 
meira carta é virada e o jogador faz uma aposta, que pode ser qualquer 
quantia até o máximo de que dispòc na ocasião. O computador pede en- 
tão que o jogador diga sc acha que a carta seguinte vai ser maior ou me- 
nor que a última carta que foi mostrada. (Para escolher maior, entre com 
M; para escolher menor, entre com m). Se o jogador acertar, recebe uma 
quantia igual à que apostou; se escolher a alternativa incorreta ou se as 
duas cartas tiverem o mesmo valor, perde a aposta. O jogo continua até 
todas as cartas terem sido viradas. 
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1000 REM <<<«: MAIOR OU MENOR - ANDY/J1M 

1010 SC.REEN 0: COLOR 15,4:KEY OFF 
1020 DEFINT A-Z 

107,0 DIM PA (52) , AV( 52) ,PAC$»( 5-13) ,BC( 11 
) 

1040 t)]M CX ( 11 ) , C.Y ( 1 1 ) 

1050 H I -0 

1060 SCREEN 0 : W 1 L)TH 40 
1070 GOSUB 2470 
1080 CLS 

1070 LOCATE 15, 8 SPRINT ."M A 1 U R" 

1100 LOCATE 18,10: PR INT "O U" 

1110 LOCATE 15,12: PR INT "h E N O R M 
1120 GOSUB 1400 
1130 GOSUE» 1520 
1140 GOSUB 1900 

1150 LUCATE 11 , 16: PR INT "Aposta:" 

1160 LOCATE 1 1,17: PR INT "Total:" 

1170 LOCATE 27 , 15: PR INT "Recorde:" 

11G0 TT=50 
1190 BE=0 
1200 GOSUB 2070 
1210 GOSUB 2220 
1220 C=1 

1230 CX=CX(C) :CY=CY(C) 

1240 GOSUB 2070 

1250 IF C=i 1 THEN 2910 

1260 PLC (1,1) =BC ( C ) : Q-i : W= 1 

1270 GOSUB 2000: GOSUB 1640 

1280 GOSUB 2150 

1290 GOSUB 2300 

1300 GOSUB 2070 

1310 CX*=CX(C+i) :CY-CY(C+1) 

1320 PLC (1,1) =BC ( C+l ) : CB-CAR 
1330 Q=i : W=1 : GOSUB 2000 
1340 PLAY "Ü2L64CRERF" 

1350 GOSUB 1640 

1360 ir CAR>CB AND A$="M" THEN 2420:GUl 
0 1230 
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1370 IF CARCCB AND A*«''m" THEN 2420 :GOT 

0 1230 

1300 GO I U 2300 

1390 REh <<<< GERAR BARALHO »» 

1400 FOR SU I T= 1 TO 4 
1410 FUR CAR«1 10 13 
1420 PAC*(SU1 T,CAR)=CHR*(SUIT-K217) 

1430 IF CAR<1 1 AND CAR>1 THEN PAC*(SUIT 
, CAR ) =PAC* (SUIT, CAR ) +CHR* ( CAR+220 ) 

1440 II CAR» 1 T I II N PAI * ( SU l I , CAR ) -PAC* ( 
SU I T „ CAR ) +CHR* ( 23 1 ) 

1430 IF CAR- 1 1 THEN PAC * ( SU I T , CAR ) =PAC* 
(Sl II T,f AR) +CHR*(232> 

1460 IF CAR«12 THEN PAC* ( SUIT , CAR ) «PAC* 

1 SU1 i ,1 AR) tCHR*< 233) 

1470 IF CAR~13 THEN PAC* (SUIT, CAR) «PAC* 
(SUIT, CAR ) +CHR* ( 234 ) 

1400 NEXT CAR 
1490 NEXT SUIT 
1500 RETURN 

1 5 I W REN < < < < EMBARALHAR ! > > 

1520 FOR N=1 TO 52 

1530 FA(N)«N:AV(N)«1 

1540 NEXT N 

1550 FOR A— 1 TO 30 

1560 N1-INT(RND( riME)*51)+l 

1570 N2“ I NT ( RND ( — T 1 ME ) * 51 )+i 

1580 CC-PA(Nl) 

1590 PA ( N I ) «PA t N2 ) 

1600 PA ( N2 ) “CC 
1610 NEXT A 
1620 RETURN 

1630 REM <<<< DESENHAR UNA CARTA »>> 
1640 LOCAI F CX 1 ,CY 

1650 PRINT CHR*(200) : sFOR Z=1 TO 5:PRIN 
T CHR*(204) ; :NEXT Z: PRINT CHR*(203) 

1660 LOCATE CX-1,CY+1 

16/0 PR 1 NT CHR* ( 206 ) | R1GH T * ( PAC* ( SU I T , C 
AR ) „ 1 ) 5 
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1680 PRINT LEFT*(PAC*(SUIT ,CAR) ,1) ; :PRI 
NT STR I NG$ ( 3 , CHR* ( 208 ) ) ; CHR* < 20 / ) 

1690 LOCATE CX-1 ,CY+2 

3700 PRINT CHR* ( 206 ) ; STRING* ( 5 . CHR$ ( 208 
) ) ; CHR$ ( 207 ) 

1710 LQCATE CX-1 , CY+3 

1720 PRINT CHR$ ( 206 ) ; CHR$ ( 208 ) ; CHR* (208 

) ; 

1730 PRINT LEFT % ( PAC$ ( SU I T , CAR ) , 1 ) ; CHR J 
( 208 ) ; CHR* ( 208 ) ; CHRS ( 20 7 ) 

1740 LOCATE CX-i,CY+4 

1750 PRINT CHR$ ( 206 ) ; STRI NG$ ( 5 , CHR$ ( 208 
) ) $CHR*(207 ) 

1760 LOCATE CX-i,CY+5 

1770 PRINT CHR$ ( 206 ) ; CHR$ ( 208 ) ; CHR$ ( 208 
) ; CHR* ( 208 ) ;CHR*(208) ; R I GHT % ( PAC* ( SU I T , 
CAR) ,1) ;CHR*(207) 

1780 LOCATE CX-l,CY+6 

1 790 PRINT CHR$ ( 201 ) ; STRINGí ( 5 ,CHR$ ( 205 
) ) ; CHR* ( 202 ) 

1800 RETURN 

1.810 REM <<<< DESENHAR AS COSTAS DE UMA 
CARTA >>>> 

1820 LOCATE CX-1,CY 

1830 PRINT CHR$ ( 209 ) ; STR I NG$ ( 5 , CHR$ ( 213 
) ) ; CHR$ ( 210 ) 

1840 FOR NN=1 TO 5: LOCATE CX-1,CY+NN 
1850 PRINT CHR* ( 215 ) ; STRINGt ( 5 , CHR$ ( 217 
) ) ; CHR$ ( 216 ) 

1860 NEXT NN 

1870 LOCATE CX 1 ,CY+6: PRINT CHR*(2ii);S 
TRING$ ( 5 , CHRi ( 214 ) ) ;CHR* (212) 

1080 RETURN 

1890 REM <<<< DESENHAR AS CARTAS >>>> 
1900 RESTORE 1960: FOR A=1 TO 11 
1910 READ CX ( A ) ,CY(A) 

1920 CX=CX(A) :CY=CY( A) 

1930 GOSUD 1820 
1940 NEXT A 
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1950 RETURN 

1960 DATA 2,0.10,0,18,0,26,0,34,0 
1970 DATA 2,7,10,7,18,7,26,7,34,7 
1980 DATA 2,14 

1990 REM <<<< INTERPRETAR UMA CARTA >>> 

> 

2000 S=PLC(Q,W)/13:CAR=PLC(Q,W) MOD 13: 

IF CAR“0 THEN CAR=13 

2010 IF S>=0 THEN SUIT=i 

2020 IF S>=1 THEN SUIT=2 

2030 IF S>-2 THEN SUIT=3 

2040 IF S>=3 THEN SUIT=4 

2050 RETURN 

2060 REM <<<< RECORDE, TOTAL, APOSTA »>> 
2070 LOCATE 18,16:PRINT " 

2080 LOCATE 18,16:PRINT BE 
2090 LOCATE 17, 17 SPRINT " 

2100 LOCATE 17,17: PRI NT TT 
2110 LOCATE 28, 16 sPRINT " 

2120 LOCATE 28,16:PRINT Hl 
2130 RETURN 

2140 REM <<<< RECEBER APOSTA >>>> 

2150 LOCATE 1S,19:PRINT "Vocé tem *";TT 
2160 LOCATE 15,20:PRINT "Quanto aposta" 
2170 LOCATE 15,21 :INPUT E<E$ : BE=VAL ( BE$ ) 
2180 IF BE<1 OR BE>TT THEN LOCATE 15,21 
I NT STRINGS(10," " ) : GOTO 2170 
2190 TT =TT-BE : GOSUB 2070 
2200 RETURN 

2210 REM <<<< GERAR AS CARTAS >>>> 

2220 FOR A=*l TO 11 
2230 C- 1 NT ( RND ( — T I ME ) * 51 ) +1 
2240 IF AV< C)=0 THEN 2230 
2250 BC ( A ) —PA ( C ) 

2260 AV(C)=0 
2270 NEXT A 
2280 RETURN 

2290 REM <<<< MAIOR / MENOR >>>> 

2300 LOCATE 15,20:PRINT STRING*(25," ") 
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2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

24 

2610 

48 

2620 

52 

2630 

2640 

2650 

2660 


LOCATE 15, 19: PR INI STRI NG* < 20 , " " ) 
LOCATE 15,21 SPRINT STRING$ ( 20 , " " ) 
LOCATE 15, 19 SPRINT "MA I OR/menor " 
A$= l NKEY$ 

1F A$<> " m" AND A$<>"M" THEN 2340 
RETURN 

RPM <<<< PERDE >»> 

PLAY "02L64BAGFEDC0IBAGFEDC" 

IF TT <1 THEN 2950 
C=C+l:GOTO 1230 
RDM <<<< GANHA »>> 

TT=TT +BE*2 
C^C+1 

PLAY " Ü4L64CDEFGAB05CDEFGAB" 

GOTO 1230 

REM <<<< CARACTERES >>>> 

RESTORE 2540 
FOR C— 200 TO 234 
FOR B=0 TO 7 

READ AsVPOKE 2048+C*8+B,A 
NEXT B 
NEXT C 
RETURN 

DATA 0,60,124,124,124,124,124,124 
DATA 124, 124,124,124,124,124,60,0 
DAT A 248 , 248 , 248 , 248 , 248 , 248 , 240 , 0 
DAT A 0 , 240 , 248 , 248 , 248 , 248 , 248 , 248 
DATA 0 , 252 , 252 , 252 , 252 , 252 , 252 , 252 
DATA 252 , 252 , 252 , 252 ,252,252, 252 , 0 
DATA 124,124, 124,124,124,124,124,1 

DATA 248 , 248 , 248 , 248 , 248 , 248 , 248 , 2 

DATA 252 , 252 , 252 , 252 , 252 , 252 , 252 , 2 

DATA 0,60,84,104,84,104,84,104 
DATA 0, £.40, 88, 160,00, 168,88,168 
DATA 04,104,84,104,84,104,60,0 
DATA 88,168,88,168,88,168,240,0 
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2670 DATA 0,252,84,168,84,160,84,168 
2680 DATA 84,168,84.168,84,168,252,0 
2690 DATA 85,106,85,106,85,106,85,106 
2700 DATA 88,168,88,168,08,168,88,168 
2710 DATA 84,168,84,168,84,168,84,168 
2720 DATA 252,140,140,84,4,84,220,140 
2730 DATA 220,140,4,4,4,140,220,252 
2740 DATA 252,180,0,0,0,132,204,252 
2750 DATA 220,140,4,4^4,4,220,140 
2760 DATA 140,116,244,204,188,124,4.252 
2770 DATA 4,244,236,204,244,116,140,252 
2780 DATA 236,204,172,108,4,236,236,252 
2790 DATA 4,124,12,244,244,116,140,252 
2800 DATA 204,188,124,12,116,116,140,25 
2 

2010 DATA 4,244,236,220,188,188,188,252 
2820 DATA 140,116,116,140,116,116,140,2 
52 

7830 DATA 140,116,116,132,244,236,156,2 
52 

2840 DATA 100,88,88,88,88,80,100,252 
2850 DAI A 220,172,116,116,4,116,116,252 
2860 DATA 196,236,236,236,236,108,156,2 
52 

2870 DATA 140,116,116,116,84,108,148,25 

2 

2880 DATA 116,108,92,60,92,108,116,252 
2890 FOR T=1 TO 5000:NEXT T sRETURN 
2900 LOCATE 15,20 
2910 LÜtJATL 15,20 

2920 I F IT>HI THEN HI=TT SPRINT "Vocé ba 
teu o recordo" 

2930 LOCATE 15.21 sPRINT "Vocè acabou co 
fn *";TT 

2940 GGSUB 2890:GOTU 1080 

2950 LOCATE 15, 20 sPRINT STRING*(25," ") 

2960 LOCATE 15,20:PRINT "Seu dinheiro a 

cabou" 

2970 GOSUB 2890 
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2980 GOTO 1030 
2990 DEFINT A 
3000 A=50 
3010 PRINT A 
3020 A=A*2 
3030 GOTO 3010 



15 

Memória 



Encontre os Pares 


Este jogo aparentemente fácil exige boa memória e um grande poder de 
concentraçáo. 

O jogo começa com todas as cartas com a face virada para baixo. 
O primeiro jogador vira duas canas. Se elas formam um par, o jogador 
faz um ponto e as cartas são retiradas; caso contrário, as cartas sáo vira- 
das de novo com a face para baixo. Nos dois casos, a vez passa para o 
segundo jogador. O jogo prossegue até acabarem as cartas; o vencedor 
é aquele que conseguir encontrar o maior número de pares. 

Em algumas versões deste jogo, a pessoa que descobre um par tem 
o direito de virar mais duas cartas. No nosso caso, porém, cm que sào 
usadas apenas 12 cartas, o jogo fica mais interessante se só for permitido 
virar um par a cada jogada. 
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1000 REM <<<< MEMÓRIA - ANDY/JIM >>>> 

1010 SCREEN 0 : KEY OFF 

1020 WIDTH 40 

1030 COLOR 15,4 

1040 DEFINT A-Z 

1050 DIM PAC$ ( 5 , 13 ) , CC ( 3 ) , SC ( 2 ) 

1060 DIM PA ( 52 ) , AV ( 52 ) 

1070 DIM CX( 12) ,CY( 12) 

1080 DIM CA (12), BC (12) 

1090 DIM PLC (1,2) , AC (12) 

1100 GOSUB 2820 
1110 CLS: GOSUB 1250 
1120 SC ( 1 ) -0 : SC ( 2 ) =0 
1130 GOSUB 1250 
1140 GOSUB 1370 
1150 GOSUB 1810 
1160 GOSUB 2060 

^170 FOR A-l TO 12 : AC ( A ) =1 : NEXT A 

1 180 P=1 

1190 GOSUB 2550 

1200 GOSUB 2240 

1210 GOTO 2430 

1220 IF P=1 THEN P=2 ELSE P=i 
1230 GOTO 1190 

1240 REM <<<< GERAR BARALHO >>>> 

1250 FOR SU I T=1 TO 4 
1260 FOR CAR=i TO 13 
1270 PAC* (SUIT, CAR )=CHRS (SUI T+217) 

1280 IF CAR< 1 1 AND CAR > 1 THEN PAC*(SUIT 
, CAR ) =PAC* (SUIT, CAR ) +CHR$ ( CAR+220 ) 

1290 IF CAR=1 THEN PACS ( SU I T , CAR ) =PAC* ( 
SU I T , CAR ) +L’HR$ ( 231 ) 

1300 IF CAK=1 1 THEN PAC* ( SUI T , CAR ) =PAC* 
( SU I T , CAR ) +CHR* ( 232 ) 

1310 IF CAR=12 THEN PAC$ ( SUIT , CAR ) =PAC* 
(SUIT, CAR ) +CHR* ( 233 ) 

1320 IF CAR=13 THEN PAC$ ( SUIT , CAR )"=PAC1» 
(SUIT, CAR ) +CHR* ( 234 ) 

1330 NEXT CAR 
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1340 NEXT SUIT 
1350 RETLIRN 

1360 REM <<<< EMBARALHAR >>>> 

1370 FOR N=1 TO 52 

1300 PA(N)=N; AV(N)=1 

1390 NEXT N 

1400 FOR A=1 TO 30 

1410 N1=INT(RND(-TIME)*51 )+l 

1420 N2= I NT ( RND ( — T 1 ME ) # 51 ) +1 

1430 COPA < NI ) 

1440 PA ( NI ) -PA ( N2 ) 

1450 PA(N2)=CC 
1460 NEXT A 
1470 RETURN 

1400 REM <<<< DESENHAR UMA CARTA >>>> 
1490 LOCATE CX-1,CY 

1500 RR I NI CHRS ( 200 ) ; s FOR Z = 1 TO 5:PRIN 
T CHRS ( 204 ) ; : NEXT Z : PRINT CHRS (203) 

1510 LOCATE CX 1,CY+1 

1520 PRINT CHR$(206) ; R IGHTS ( PACS ( SU I T , C 
AR ) , 1 ) ; 

1530 PRINT LEFT $ ( PACS ( SU I T , C AR ) , 1 ) ; : PR I 
NT STRINGS ( CHRS ( 200 ) ) ; CHRS (207) 

1540 LOCATE CX-l,CY+2 

1550 PRINT CHRS ( 206 ) ; STR I NGS ( 5 , CHRS ( 208 
) ) ; CHRS (207) 

1560 LOCATE CX-l,CY+3 

1570 PRINT CHRS ( 206 ) ; CHRS ( 208 ) ; CHRS ( 208 

) ; 

15Ü0 PRINT LEFT S ( PACS ( SU I T , CAR ) , 1 ) ; CHRS 
(208) ; CHRS ( 208 ) ; CHRS (207) 

1590 LOCATE CX-l,CY+4 

1600 PR INI CHRS ( 206 ) ; STR I NGS ( 5 , CHRS ( 200 
) ) ; CHRS ( 207 ) 

1610 LOCATE CX-1 ,CY+5 

1620 PRINT CHRS ( 206 ); CHRS (208) ; CHRS (200 
) ; CHRS (208) ; CHRS (208) ; R I GHTS ( PACS ( SU I I, 
CAR) ,1) ; CHRS (207) 

1630 LOCATE CX-l,CY+6 
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1640 PRINT CHR*(201) ; STR I NGS ( 5 , CHR* ( 205 
) ) ; CHR* ( 202 ) 

1650 RETURN 

1660 REM <<<< DESENHAR AS COSTAS DE UMA 
CARTA >>>> 

1670 LOCATE CX-1,CY 

1600 PRINT CHR$ ( 209 ) ; STR I NGS ( 5 , CHR$ (213 
) ) ; CHRS ( 210 ) 

1690 FOR NN=1 TO 5:LOCATE CX-l.CY+NN 
1700 PRINT CHR*(215) ; STR ING* ( 5 , CHR* ( 217 
) ) ; CHR$ ( 216 ) 

1710 NEXT NN 

1720 LOCATE CX-1 , CY+6 : PRINT CHR*(2ii);S 
TRING$ ( 5 , CHR$ ( 214 ) ) ;CHR*(212) 

1730 RETURN 

1740 REM <<<< APAGAR UMA CARTA >>>> 

1750 LOCATE CX-l.CY 

1760 FOR Y=1 TO 7 

1770 LOCATE CX-1 , CY+Y-1 : PRINT " 

1700 NEXT Y 
1790 RETURN 

1800 REM <<<< GERAR CARTAS »>> 

1810 RESTORE 2010: FOR A=1 TO 12 

1820 CA(A)=1 :NEXT A 

1830 FOR A=1 TO 10 STEP 2 

1840 READ Cl , C2 

1850 C= I NT ( RND( -TIME ) *1 1 ) -*-1 

1860 IF CA ( C ) “0 THEN 1850 

1870 BC ( C ) =C1 : CA ( C ) =0 

1080 C=INT(RND(-TIME)*il)+l 

1890 IF CA ( C ) =0 THEN 1880 

1900 BC ( C ) -C2 : CA ( C ) =0 

1910 NEXT A 

1920 A=0 

1930 A=A+i 

1940 IF A< 13 THEN IF CA(A)=1 THEN READ 
BC (A) :CA( A)=0 ELSE 1930 
1950 A-A+i 

1960 IF A<13 THEN IF CA(A)=1 THEN READ 
BC ( A ) i CA( A ) =0 ELSE 1950 
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1970 FOR A=1 TO 12 
1980 READ CX ( A) ,CY(A) 

1990 NEXT A 
2000 RETURN 

2010 DATA 1,14,2,15,3,16,4,17,5,18,6,19 
2020 DATA 2,0,10,0,18,0,26,0 
2030 DATA 2,7,10,7,18,7,26,7 
2040 DATA 2,14,10,14,18,14,26,14 
2050 RfM <<<< I ELA >>» 

2060 CLS 

2070 FOR A=1 TO 12 
2080 CX=CX ( A) sCY=CY( A) 

2090 GOSUB 16/0 
2100 NEXT A 

2110 LOCATE 33, 3 SPRINT "Pontosl " " 

2120 LOCATE 33, 6 SPRINT ,, Pontos2"" 

2130 LOCATE 32 , 1 5 : FRINT "Jaqddurl" 

2140 LOCATE 32, 17 SPRINT "Jogador2" 

2150 RETURN 

2160 REM «<< INTERPRETAR CARTA >>>> 

2170 S=PLC (Q,W)/13: CAR-PLC ( Q , Ui ) MOD 13 s 

IF CAR=0 THEN CAR=13 

2180 IF S>~0 7 HEN SUIT=1 

2190 IF S>=1 THEN SUIT=2 

2200 IF S>=2 THEN SUIT=3 

2210 IF S>*=3 1 HEN SUIT»4 

2220 RETURN 

2230 REN <<<< ENTRADA DE DADOS »>> 

2240 LOCATE 1,21 SPRINT STRING* ( 35, " " ) 
2250 LOCATE 2,21sPRINT "Primeiro número 
" I 

2260 INPUT NI 

2270 PLAY "03L64CRE" 

2280 IF NI <1 UR NI >12 THF-N 2250 
2290 IF AC (NI ) =0 THEN 2250 
2300 PLC (1,1) -BC ( NI ) s Q=1 : W— 1 
2310 GOSUB 2170 : CX=CX ( NI ) : CY=CY ( NI ) 

2320 GOSUB 1490 

2330 LOCATE 2,21sPRINT "Sequndo número 

II • . 

5 J 



142 Livro de jogos em MSX 


2340 INPUT N2 
2350 PLAY "03L64CRE" 

2360 IF N2<i OR N2>12 OR N1=N2 THEN 233 
0 

2370 IF AC ( N2 ) — 0 THEN 2330 

2380 PLC (1,2) =BC ( N2 ) : 0=1 : t»J=2 

2390 GOSUB 2170 : CX=CX (N2) íCY=CY(N2) 

2400 GGSUB 1490 
2410 RETURN 

2420 REM <<<< VERIFICAR SE E UN PAR >>> 

> 

2430 Q=i:W=l:GOSUB 2170 

2440 A 1 a CAR : Q= i : W - =2 z GOSUB 2170 

2450 A2=CAR 

2460 IF Ai=A2 AND N10N2 THEN 2610 
2470 LOCATE l,21lPRINT STR ING$ ( 35 , " ") 
2480 PLAY "02L64BAGFEDC01BAGFEDC" 

2490 LOCATE l,2l:PRINT "As cartas sào d 
iferen tes '* 

2500 GOSUB 3240 

2510 CX=CX(N1) :CY=CY(N1) 

2520 GOSUB 1670 : CX=CX ( N2 ) : CY=CY ( N2 ) 

2530 GOSUB 1670: GOTO 1220 

2540 REM <<<< IMPRIMIR A CONTAGEM >>>> 

2550 LOCATE 33.4:PRINT SC ( 1 ) 

2560 LOCATE 33,7:PRINT SC (2) 

2570 IF P=1 THEN LOCATE 32,15:PRINT "JO 
GADOR1”: LOCATE 32,17:PRINT M jogador2" 
2580 IF P~2 THEN LOCATE 32,17:PRINT 11 JO 
0ADOR2" : LOCATE 32,15lPRINT "jogadorl" 
2590 RETURN 

2600 REM <<<< EXISTE UM PAR >>» 

2610 LOCATE i,2i:PRINT STR ING$ ( 35, " " ) 
2620 PLAY " 05L64CDEFGAB06CDEFGAB " 

2630 LOCATE l,2t:PRINT w As cartas são i 
yuais" 

2640 AC ( Ni ) =0 : AC ( N2 ) =0 

2650 GOSUB 3240 

2660 CX=CX ( Ni ) : CY=CY ( NI ) 
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2670 GQSUB 1750 : CX=(JX ( N2 ) : CY-CY ( N2 ) 
2680 GOSUB 1 7 50 : SC ( P ) =SC ( P ) + 5 
2690 IF SC( 1 )+SC(2)=30 THEN 2720 
2700 GOTO 1220 

2710 REM <<<< FIM l)U JOGO >>>> 

2720 CLS 


2730 PRINIsPRIWT "Total do jogador 1:"; 
SC< 1 ) 

2740 PRINTíPRIMT "Total do jogador 2:"; 
SC ( 2 ) 

2750 PR IN r iPRINT s LOCATE 3, 10 SPRINT "Ape 
rte ESPADO’ para jogar de novo" 

2760 LOCATE ll,12:PRINr "ou P* para pa 

IT3ir II 


2770 

2780 

2790 

2800 

2810 

2820 

2830 

2040 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

24 

2960 

48 

2970 

52 

2980 


AS= 1 NKEY* 

IF A*=" " THEN 1110 
IF A*="P" OR A$="p" THEN END 
GOTO 2770 

REM <<<< CARACTERES >>>> 

RESTORE 2890 
FOR 0=200 TO 234 
EOR B“0 TO 7 

READ A : VPOKE 2048+C*8+B , A 
NEXT B 
NEXT U 
RETURN 

DATA 0,60, 124 , 124 , 124 , 124 , 124 , 124 
DATA 124 ,124,124, 124 ,124,124.60,0 
DA I A 248,248,243, 248 , 248 ,248,240,0 
DAT A 0,240, 248 , 248 , 248 , 248 , 248 , 248 
DATA 0 , 252 , 252 , 252 , 252 ,252,252, 252 
DA í A 252 , 252 , 252 ,252, 252 , 252 , 252 . 0 
DATA 124 , 124 , 124 , 124 ,124,124, 124 . 1 

DAT A 248 , 248 ,248,248, 248 , 24G , 248 , 2 

DATA 252 , 252 , 252 , 252 , 252 , 252 , 252 , 2 

DATA 0,60,84,104,84,104,84,104 
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2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

2 

3160 

3170 

52 

31 B0 
52 

3190 

3200 

3210 

52 

3220 

2 

3230 

3240 


DATA 0,240,88,168,88,168,88,168 
DATA 84,104,84,104,84,104,60,0 
DATA 88,168,88,168,88,168,240,0 
DATA 0,252,84,168,84,168,84,168 
DATA 84,168,84,168,84,168,252,0 
DATA 85,106,85,106,85,106,85,106 
DATA Bi 1 , 168,88,168,88,168,88,168 
DA I A 04,168,84,168,84,168,84,168 
DATA 252,140,140,84,4,84,220,140 
DATA 220,140,4,4,4,140,220,252 
DATA 252,180,0,0,0,132,204,252 
DATA 220,140,4,4,4,4,220,140 
DATA 140,116,244,204,188,124,4,252 
DATA 4,244, 236 , 204 , 244 ,116,140, 252 
DATA 236 , 204 , 172 , 108 , 4 , 236 , 236 , 252 
DATA 4,124,12,244,244,116,140,252 
DATA 204,188,124,12,116,116,140,25 

DATA 4 , 244 , 236 , 220 , 188 , 188 , 188 , 252 
DATA 1 40, 1 16, 11 6, 140, 1 1 6 , 1 1 6,140,2 

DATA 140,116,116,132,244,236,156,2 

DATA 100,88,88,88,88,88,100,252 
DATA 220,172,116,116,4,116,116,252 
DATA 1 96 , 236 , 236 , 236 , 236 ,108.156,2 

DATA 140,116,116,116,84,108,148,25 

DATA 116,108,92,60,92,108,116,252 
FOR T=1 TU 2000 : NEXT T : RETURN 



16 

Senha 



Um Jogo de Raciocínio 

O objetivo deste jogo é descobrir uma combinação secreta de quatro co- 
res (entre seis cores possíveis), escolhendo quatro cores cm uma certa or- 
dem. Depois de cada tentativa, o computador fornece as seguintes 
indicações: 

Um ponto de exclamação para cada cor certa no lugar certo. 

Um ponto de interrogação para cada cor certa no lugar errado. 

Para tornar o jogo mais difícil, a ordem em que as informações são 
mostradas pelo computador não tem relação com a ordem com que as 
cores foram escolhidas; primeiro são mostrados lodos os pontos de ex- 
clamação e depois todos os pontos de interrogação. 
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As cores sào escolhidas usando se o joystick ou as teclas de controle 
do cursor para colocar uma sela sobre a cor desejada. O botão de tiro 
ou a tecla de espaço é então usado para “fixar” a cor. O processo é repe 
tido para cada uma das quatro posições. 

O jogador tem dez oportunidades para descobrir a sequência corre- 
ta. Depois da décima tentativa, o computador mostra a combinação se- 
creta na parte de cima da tela. Para jogar de novo, basta apertar a tecla S. 

No início do jogo, o computador oferece a opção de usar símbolos 
cm lugar de cores. Esta opção é partieularmente recomendada no caso 
de receptores de TV cm preto e branco. 

1000 REM <<<< SENHA - ISSI >>>> 

1010 SCREEN 2,0, Os COLOR 10,1,0:CLS 
1020 MAXF ILES=2:0PEN "GRPsS" FOR OUTPUT 
AS 1 

1030 PRESET (30, 175) sPRINT 41, "CORES OU 
SÍMBOLOS (C/S) ?" 

1040 A$=INPUT*(i ) :A=ASC( Aí ) AND 223 
1050 IF A— 67 OR A — 99 THEN GR=0:GOTO 1 
080 

1060 IF A=83 OR A-=l 15 THEN GR=i:G0TG 10 
80 

1070 GOTO 1040 
1080 CLS 

1090 CX=2 : CY=180 

1100 PRESET (8,4) : PR I NT #1," SEN 

H A" 

1110 W*=" 

1120 PRESET (8, 15) :PRINT #1 , W$ ; WS ; WS ; W$ 
1130 W*=" " +CHR$ ( 1 ) +CHR$ ( 79 ) +CHR$ ( 1 ) +CH 
RS (79)+" " 

1140 FOR N=40 TO 150 STEP 12: COLOR 9 
1150 PRESET ( Q , N ) : PRINT #1 , W* ; ; W$ ; W$ 
1160 NEXT N 
1170 GOSUD 1510 
1180 GOSUB 1240 
1190 GOSUB 13.10 
1200 GOSUB 1600 
1210 IF A*=" !!!!*• 

$=•• •• 


THEN G07U 2080 ELSE A 
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1220 TRY=TRY+i : I F TRY^IO THEN GOTO 1970 
ELSE GOTO 1190 

1230 REM <<<< SORTEIO DAS CORES >>>> 
1240 A4=" 123456" : FOR PLA=1 10 4 
1250 N= 1 N I (RND( -T 1ME ) *LEN ( A$ ) )+l 
1260 NN ( PLA ) =VAL ( M I D4 ( A4 , N . 1 ) ) 

1270 A4=LEFT 4 ( At* , N-l ) +R I GHT 4 ( A4 , LEN ( AS ) 
-N) 

1280 NEXT PI A 
1290 RETURN 

1300 RE.M <<<< CORES /S I MBOLOS >>>> 

1310 RE3T0RE : PRESET (40, 170) «FOR N=*l TO 
òsREAD C , R : COLOR C : C*=CHR4 í 1 ) +CHR4 ( R ) 
1320 IF GR-0 THEN PRINT 41 , CHR* ( i ) +CHR* 
(72)+CHR*(.1 )4CHR*(72) ; LLSE PR INI #1,U* 

.1) H . 

1330 NEXT N 

1340 TX — 1 : CY=180 : W*=CHR* ( 1 )+CHR$(75) 
1350 COLOR 9 : PRESET ( CX * 16+8 , CY ) : PR I NT 
#i,W^5iF0R W=1 TO 10: NEXT W 
1360 COLOR l: PRESET ( C X # 16+8 , CY ) : PR I NT 
# 1 , W* ; 

1370 GOSUB 2240 
1380 IF LE»1 THEN CX=CX-1 
1390 IF R I “1 THEN CX^CX+1 
1400 IF CX«R THEN CX=2 
1410 IF CX=1 THEN CX^7 

1420 IF FI-1 THEN PLAY " L64CDE " : GÜT Ü 14 

40 

1430 BOTO 1350 

1440 PRESET ( TXT32-16 , TRY+ 12+40 ) : COLOR 
1 : PR I NT # 1 , CHR 4(1) +CHR4 ( 79 ) +CHR4 ( 1 ) +CHR 
4(79) 

1450 RESTOREsFOR W=1 TO CX 1 :READ C,R:N 
EXT W: COLOR C , 1 : C4=CHR4 ( 1 ) +CHRS ( R ) 

1460 PRESET ( TX * 32-16 „ TRY * 12+40 ) 

1470 IF GR=0 THEN PRINT «1 , CHR* U ) +CMR* 
( 72 ) +CHR4 ( 1 ) +CHR* ( 72 ) ELSE PRINT ttl,C4; 
C4 
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1480 PE(TX)=CX-1:TX=TX+1 

1490 IF TX = 5 THEN RETURN ELSE GOTO 1350 
1500 REM <<<< CABEÇA »>> 

1510 COLOR 7 : PSET (250,160) 

1520 RESTORE 2310 

1530 FOR N=1 TO 25.-READ A , B : A=A/2 . 5 : B=1 
92-B/2 

1540 IF A<180 THEN A=A+25 
1550 D*="h"+STR*( INT ( A) )+" , " +STR* ( I NT ( B 
) ) 

1560 DRAW t NEXT N 

1570 PSET (220, 106) : DRAW "U2BU4U20E10U1 
0H10L10610" 

1580 RETURN 

1590 REM <<<< VERIFICAÇÃO >»> 

1600 RJ ~0 

1610 FOR X = 1 TO 4 : L ( X ) “0 : NEXT X 

1620 FOR X=1 TO 4 : FOR Y=i TO 4 

1630 IF PE ( X ) =PE ( Y ) AND XOY THEN L(X) = 

1 :RJ=RJ+1 

1640 NEXT Y , X 

lo50 RJ=RJ/2: IF RJ>3 THEN RJ=3 
1660 GOSUB 1690 

1670 IF RJ=0 THEN GOSUB 1770: RETURN 
1680 IF RJO0 THEN GOSUB 1840 : E=E-CE * GO 
SUB 1770: RETURN 
1690 D=0:E=0 

1/00 r ÜR X = 1 ÍÜ 4 : LI ( X ) =0 : L2 ( X ) =0 : NEXT 

X 

1710 FOR Y— 1 TO 4 : FOR 2=1 TO 4 

1720 IF PE ( Y ) =NN ( Z ) THEN D=D - ( Y=Z ) : E=E- 

(YOZ):Ll(Y)— (Y-Z) : L2 (Y)a-(YOZ' 

1730 NEXT Z , Y 
1740 PP=D 
1750 QQ-E 
1760 RETURN 

1770 A*=STRING*(D,CHR*<33) ) +STR ING$ ( E , C 
HR*(63) ) 

1780 fOR X=1 TO 4 
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1790 IF MIDS(A$,X,1)»" ! " THEN PLAY "E" 
1800 IF N I D$ ( A$ ,X,1)="?" THEN PLAY "F" 
ELSE PLAY "A" 

1010 NEXT X 

1820 COLOR 4 : PRESET ( 136 , TRY* 12+40 ): PRI 
NT #i,A* 

1830 RETURN 
1840 CC-0 : CE-0 
1850 FOR X = i TO 4 

1860 IF L2(X)-1 AND L(X)= 1 THEN CE=CE+ 
1 

1870 IF Li ( X ) =1 AND L(X)=i THEN CC=CC+1 
1880 NEXT X 

1090 IF CC=0 AND PP-0 AND QQO0 THEN CE 
-CE-1 

1900 IF D=0 AND E=0 THEN CE=0 
1910 IF PP=i AND RJ -2 THEN CE=CE-1 

1920 IF Qü-l AND RJ»2 THEN CE=CE-1 

1930 IF QQ=4 AND RJ=2 THEN CE=CE-1 

1940 IF QQ-1 AND RJ=3 THEN CE=CE+i 

1950 RETURN 

1960 REM <<<< PERDEU >>>> 

1970 LINE (8,15)-(170,23) ,1 # BF 
1980 FOR N=1 TO 4 

1990 RESTORE : FOR W=1 TO NN ( N ) : READ C,R: 
NEXT W:C*=CHR*( 1 )+CHR$(R) 

2000 IF GR=0 THEN C$=CHR* ( 1 ) +CHR* ( 72 ) 
2010 PRESET (N*40-24,15) :COLOR CrPRINT 
#1 ,C*;C*;C*;C* 

2020 NEXT N 

2030 PRESET (190,20) :PRINT #1, "ERROU!" 
2040 PLAY "L8GFL4EL8FEL4DL8EDL4CD" 

2050 FOR N=1 TO 4000: NEXT N 

2060 GOTO 2180 

2070 REM <<<< GANHOU >>>> 

2080 FOR N=1 TO 4 

2090 RESTORE: FOR W^i TO NN ( N ) : READ C,R: 

C*=CHR$( 1 ) 4-CHR3HR) :NEXT W 

2100 LINE(N*40-24,15)-(N*40+16,25) , 1 , BF 
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2110 IF GR-0 THEN C*=CHR* ( 1 ) +CHR* ( 72 ) 

2 1 20 PRFSF T (N*40 24,1S): CÜL OR C : PR 1 NT 
# l , ST R I NG* ( 4 , CHR* ( 1 ) +CÍ ) 

2130 NEXT N 

2140 PLAY "L8D44F4*G#L4A#L8R8A#G#F#G#FD#L 
4C#'' 

2150 CLS 

2160 PRESET ( 90 , 50 ) : PR1NT 4*1, "MUI TO BEM 
• •• 

2170 PRESET ( 10,70) íPRINT *i,"VOCE PREC 
I SGU DE " ; TRY » 1 ; " TENTAT I VAS • " 

2180 PRESET (25,160) SPRINT #1,"C)UER JOG 
AR DE NOVO (S/N)?" 

2190 A*=INPUT*(1 ) :A=ASC(AS) AND 223 
2200 IF A=*Q3 THEN TRY=0:GOTÜ 1080 
2210 IF A=78 THEN END 
2220 GOTO 2190 

2230 REM <<<< ENTRADA DE DADOS >>>> 

2240 LE=0 : RI=0 : FI=0 

2250 Dl— STICK ( 0 ) OR STICK(l) OR STICK(2 

) 

2260 IF D 1=7 THEN LE=1 
2270 IF D 1=3 THEN RI=i 

2280 F I ™ABS ( STR I G ( 0 ) OR STRIG(l) OR STR 
IG<2) ) 

2290 RETURN 

2300 DATA 7,77,2,6/ , 10,69, 15,70,8,68, 13 
,78 

2310 DATA 560,110,605,180,615,220,615,2 

50,605, 290 , 555 , 320 , 500 . 320 

2320 DATA 415,290,395,250,365,200,375,1 

95 , 390 , 190 , 400 , 170 , 395 , 165 

2330 DATA 400,160,395,155,400,150,400,1 

45,395,140,395, 130,400, 125 

2340 DATA 415,120,425,110,430,95,405,50 



17 

Alberto Diz 



Allferlo Diz: Carregue Este Programa 


Sc não mc engano, esta c a primeira versào para computador do jogo pa- 
ra crianças conhecido como Simão Diz. 

O programa pode ser usado para ensinar os conceitos de esquerda 
c direita, mas c preciso não esquecer que, da forma como foi escrito, di- 
reita c esquerda se referem ao boneco que aparece na tela c nâo à pessoa 
que está sentada diante do computador! 

Você começa o jogo com apenas um ponto. A mensagem do compu- 
tador informa o que você tem a fazer e também quem está dando a or 
dem. Sc é Alberto que está mandando, obedeça prontamente, mas se a 
ordem partiu de Roberto, deve ser ignorada! O bonequinho na tela obe- 
dece a todos os seus comandos. 

Você pode receber quatro ordens diferentes. Para executar as ordens 



152 Livro do jogos cm MSX 


“Para Cima” e “Para Baixo”, use o joystick ou as teclas de controle do 
cursor da forma normal. As ordens “Esquerda” c “Direita” sào cumpri- 
das usando o joystick ou as teclas de controle do cursor, mas em relação 
ao boneco que aparece na tela. Em outras palavras, se você mover o joys- 
tick para a esquerda ou apertar a tecla dc controle do cursor da esquerda, 
o boneco levantará o braço direito. Esta complicação foi introduzida pa- 
ra tornar o jogo mais difícil. Você tem que decidir rapidamente se vai aper- 
tar alguma tecla c qual a tecla que deve ser apertada, a da esquerda ou 
a da direita. Jogue algumas vezes c verá que nào ò tào fácil como parece. 

1000 REM <<<< ALBERTO DIZ - J IM/ANDY >> 

>> 

1010 SCREEN 1,1: KE Y OFF 
1020 FOR A=1 TO 9 
1030 FOR B=1 TO 8 
1040 READ AS 

1050 5*< A)=S*(A)+CHR$< VAL( "&H"+AS) ) 

1060 NEXT B 

1070 OPRITLSÍ A)=SS( A) 

1080 NEXT A 

1090 DATA 18,24,42, A5, 81 ,5A,24, 10 
1100 DATA 31,9,5,3,1,1,1,1 
1110 DATA 1,1,1,3,5,9,11,21 
1120 DATA 8C, 90, A0, 00,80,80,80,80 
1130 DATA 80,80,80,00, A0, 90, 88, 84 
1140 DATA 41, 7F, 0,0, 0,0, 0,0 
1150 DATA 1,1,2,4,8,10,20,60 
1160 DATA 82, FE, 0,0, 0,0, 0,0 
11/0 DATA 80,80,40,20,10,8,4,6 
1180 REM <<<< INICIO DO JOGO >>>> 

1190 GOSUB 1600 

1200 SC" 1 : GOSUB 1910 

1210 FOR AA“1 TO 500: NEXT AA 

1220 GOSUB 1790 

1230 GOSUB 1670 

1240 IF G0“F'0 AND OG=l THEN M0^M0+1:SC= 
SC+1 : GOSUB 1910:GOTO 1210 
1250 IF T 1-200 AND 0G=2 THEN 1290 
1260 IF T 1-200 THEN 1280 

1270 IF ÜG=2 OR PQOGO THEN SC=SC-l:MO= 
MO-1: GOSUB 2020 
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1280 IF SC<1 THEN 2100 
1290 GOSUB 1910: GOTO 1210 
1300 GOTO 1300 

1310 REM <<<< FIGURA 'PARA BAIXO' >>>> 
1320 PUT SPRITE M , ( X , Y ) , 15 , 1 
1330 PUT SPRITE M+i , ( X-8, Y+16) , 15,3 
1340 PUT SPRITE M+2 , ( X+8 , Y + 16 ) , 1 5 , 5 
1350 PUT SPRITE M+3 , ( X-8 , Y+32 ) , 1 5 , 7 
1360 PUT SPRITE M+4 , ( X+3 , Y+32 ) , 1 5 , 9 
1370 RETURN 

1380 REM <<<< FIGURA 'PARA CIMA' >>>> 
1390 PUT SPRITE M,(X,Y),15,i 
1400 PUÍ SPRITE M+l , ( X-8 , Y+16 ) ,15,2 
1410 PUT SPRITE M+2 , ( X -»-8 , Y + 16), 15, 4 
1420 PUT SPRITE M+3 , ( X-8 , Y+32 ) , 15 , 6 
1430 PUT SPRITE M+4 , < X+8 , Y+32 ) , 15 , 8 
1440 RETURN 

1450 REM <<<< FIGURA 'ESQUERDA* >>>> 
1460 PUT SPRITE M,(X,Y),15,i 
1470 PUT SPRITE M+l , ( X-8 , Y+16 ) , 15 , 3 
1480 PUT SPRITE M+2, ( X +8 , Y+16) , 15,4 
1490 PUT SPRITE M+3 , ( X -8 , Y+32 ) , 1 5 , 7 
1500 PUT SPRITE M+4, (X+8, Y+32) ,15,8 
1510 RETURN 

1520 REM <<<< FIGURA 'DIREITA* >>>> 
1530 PUT SPRITE M,(X,Y),15,1 
1540 PUT SPRITE M+l , ( X-8 , Y+16 ) , 15 , 2 
1550 PUT SPRITE M+2 , < X+8 , Y+16 ) , 1 5 , 4 
1560 PUT SPRITE M+3, ( X-8 , Y+32 ) , 15 , 6 
1570 PUT SPRITE M « 4 , ( X+8 , Y+32 ) , 15 , 9 
1500 RETURN 

1590 REM <<<< TELA >>» 

1600 LOCATE 10,0 SPRINT "ALBERTO DIZ" 

1610 LOCATE 10,1: PR I NT " » 

1620 LOCATE 2,1Q:PRINI "PUNTOS" 

1630 X~ 180 : Y-30 : 11=1 : GOSUB 1320 
1640 X = 180 : Y— 100 : M— 6 : GOSUB 1320 
1650 RETURN 

1660 REM <<<< fc NTRADA DE DADOS >>>> 
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1670 T I =0 

1680 AA=ST I L'K ( 0 ) OFV STICh(l) 

1690 IF AA-0 THEN 1740 

1700 IF AA=3 THEN Gü^isGOTü 1760 

1710 II AA= 7 IHEN G0*2 : GOTO 1760 

1720 II AA~I IHEN GU“3:C0T0 1760 

1730 II AA=>5 THEN Gü“4 : GUTG 1760 

1740 T I "T I -*• 1 * I F T 1-200 THEN 19*70 

1750 GOTO 1680 

1760 X-180: r-100:M-6 

1770 DN GO GOTO 1460,1530,1390,1320 

1780 REN <<<< ESCOLHER FOSIÇAÜ >>>> 

1790 OG- I NT ( RND (1)#5)+1:IF 0G<3 THEN OG 
«2; GO 1*0 1810 
1800 OG— 1 

1010 P0=INT(RND(l)*4)+i 
1820 X-180 : Y=30 : M<=1 


1 830 
ERTÜ 

ÍT 0G“1 
DIZ" 

1HÍN 

LUCATE 

3 f 5.-PRINT 

"ALB 

1840 

ERTO 

IF OG-2 
DIZ" 

THEN 

LOCATE 

3, 5: PR I MT 

"ROB 

1050 

UERDA 

IF P0=1 
«1 

IHÍ.N 

1 OCA TL 

3 , 7 : PR I NT 

"ESG 

1860 
EI TA" 

IF PÜ-2 

THEN 

LOCATE 

3 , 7 : PR I NT 

"DIR 

1870 IF PO-3 
A CIMA" 

IHEN 

LUCATE 

3, 7 :PRINT 

"PAR 

1880 

IF P0=4 

THEN 

LOCATE 

3 , 7 : PR I NT 

"PAR 


A BAIXO" 

1890 ON PD GOTO 1460,1530,1390,1320 
1900 REM <<<< CONTAGEM >>>> 

1910 LOCATF 3 , ‘ : PR I NT " 

1920 LOCATE 7, 7 SPRINT " 

1930 LOCATE 3,9:PRINT " 

1940 LOCATE 3, 19 SPRINT SC 
1950 RETURN 

1960 REM <<<< TEMPO ESGOTADO »>> 
1970 LOCATE 3, 5 sPRINT " 

1980 LOCATE 3, 7 sPRINT " 
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1990 IF OG-2 THEN LOCATE 3,5:PRINT "MUI 
TO BEM ' " : LOCATE 3,7:PRINT "FOI ROBERTO" 
: LOCATE 3, 9 SPRINT "QUE DISSE" :SC=SOl :F 
ÜR T=i TO 8G0:NEXT IsLOCATE 3 # 7:PRINT " 

" sRETURN 

2000 LOCATE 3, 7 : PR IN 1 "TEMPO ESGOTADO": 
SC=SC— 1 : FOR T = 1 TO 800:NEXT T sRETURN 
2010 RLM <<<< MOVIMENTO ERRADO >>» 

2020 LOCATE 3, 3 SPRINT " " 

2030 LOCATE 3, 7 sPRINT " 

2040 LOCATE 3, 5 SPRINT "ERRADO 1 " 

2050 ir 0G=2 THEN LOCATE 3,7:PRINT "FOI 
ROBERTO" : LOCATE 3 ? 9sPRINT "QUE DISSE" 
2060 FOR T«1 10 800 : NEXT T 
2070 LOCATE 3, 7 sPRINT " 

M 

2080 RETURN 

2090 REM <<<< FIM DO JOGO »>> 

2100 LOCATE 3, 5 sPRINT " 

2110 LOCATE 3, 7 SPRINT " " 

2120 LOCATE 3,7:PRINT "JOGO ENCERRADO" 
2130 FOR T=1 TO B00:NEXT T 
2140 SC=0 : LOCATE 3,7:PRINT " 

•I 

2150 LOCATE 3, 7 sPRINT "OUTRA VEZ 
2160 FOR T=1 TO 800: NEXT T 
2170 LOCATE 3, 7 sPRINT " 

2180 GOTO 1190 
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Papagaios 



Vamos Imitar os Papagaios? 


Aqui estão quatro papagaios, cada um de uma cor e com uma corda mu- 
sical diferente no bico. 

Quando o programa começa, um dos papagaios puxa a corda, pro- 
duzindo uma nota musical. Você deve reproduzir essa nota. Lm seguida, 
o computador mostra uma seqüência dc dois papagaios (duas notas), que 
você também deve repetir, e assim por diante. 

Os poleiros dos pássaros foram dispostos na tela dc modo a corres- 
ponderem à posição das teclas de controle do cursor. Assim, quando vo- 
cê aperta a tecla com a seta para cima o papagaio de cima puxa uma corda, 
quando aperta a tecla com a seta para a esquerda c a vez do papagaio 
da esquerda c assim por diante. Como nos outros jogos, pode ser usado 
um joystick em lugar das teclas de controle do cursor. 

Quando testamos o programa, ninguém conseguiu reproduzir uma 
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seqüência de mais dc 25 notas; a média ficou por volta de 12. O progra- 
ma foi feito para produzir seqüências dc até 50 notas. Se você conseguir 
chegar ao final, parabéns! Você possui uma memória fantástica... ou será 
que é um andróide? 


1000 REM <<<< PAPAGAIOS ANDY/JIM >>>> 
1010 X-RND(-TIME) 

1020 DIM NO (50) 

1030 SCREEN 1,0,0 
1040 GOSUB 1710 
1050 GOSUB 1820 
1060 5C=0:HI=0 
1070 GOSUB 2050 
1080 fOR A=1 TO 4 
1090 GOSUB 1530 
1100 NEXT A 
1110 PO=0 

1120 REM <<<< LOOP PRINCIPAL >>>> 

1130 N=INT(RNL>( 1 ) *4 )+l 
1140 PO=PO+l 
1150 NO ( PO ) -N 

1160 GOSUB 2170 : LDCATE 20,10:PRINT "Min 
ha vez" 

1170 FDR B-i TO PO 
1180 GOSUB 2220 
1190 NEXT B 

1200 FOR T=i TO 500: NEXT T 

1210 A*=INKEY*: IF A*<>"" THEN 1210 

1220 B=i 

1230 GOSUB 2170 s LOCATE 20,10:PRINT "Sua 
vez " 

1240 A*=INKEY*:1F A$="" THEN 1240 
1250 AA=ASC(A*) 

1260 IF AA-29 THEN A~4 : GOSUB 1650: GOSUB 
1590 :FQR T=1 TO 100:NEXT T 
1270 IF AA=28 THEN A=2: GOSUB 1650: GOSUB 
1590 : FOR T=1 TO 100:NEXT T 
1200 IF AA=30 THEN A=l:GOSUB 1650:GOSUB 
1 590 : FOR T=i TO 100:NEXf T 
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1290 IF AA=31 THEN A=3: GOSUB 1650: GOSUB 
lb70:FOR T-l TO 108sN£Xt T 
1300 IF AA<28 OR AA>31 THEN 1240 
1310 GOSUB 1650 
1320 GOSUB 1530 

1330 IF NO(B)=A THEN 1340 ELSE 1370 
1340 IF B=PO THEN GOSUB 2170:LOCATE 20, 
10 : PR I NT M Muito bem" : LOCATE 16,12:PRINT 
PO j "at agora" 

1350 IF B=-PO THEN FOR T = 1 TO 1000íNEXT 
T: GOSUB 2170: GOTO 1130 
1360 B=B+ 1 : GOTO 1240 
1370 GOSUB 2170 

1380 LOCATE 17,10:PRINT "Sequência" :LOC 
ATE 17,11: PR INT "errada" :LOCATE 17,12:P 
RJ NT "depois de" ; PO- 1 : LOCATE 17,13:PRIN 
T "jogadas" 

1390 FOR T=1 TO 1000: NE XT T 
1400 GOSUB 2170 

1410 LOCATE 17,10: PR INT "A sequência" : L 
OCATE 16,12: PR INT " era:" 

1 420 FOR T=1 TO 1000:NEXT T 

1430 FOR B=1 TO PO 

1*40 GOSUB 2220 

1450 NEX 1 B 

1460 GOSUB 2170 

14/0 LOCATE 20, 10: PR INT "Outra vez" : X-R 
ND (-TIME) 

.1400 FOR 1=1 TO 1000: NE XI í 
14V0 GOSUB 2170 
1500 GOTO 1110 
1S10 END 

1520 RT M <<<< PAPAGAIO LEVANTADO >>>> 
1530 LOCATE PX ( A ) . PY ( A ) : PR I NT CHR*(200) 
;CHR*(201 ) ;CHR*(202) 

1540 LOCA TF. PX ( A ) , PY ( A ) +1 : PR I NT CHR$(20 
3 ) ; CHR* ( 204 ) ; CHR* ( 205 ) 

1550 LOCATE PX ( A ) , PY ( A ) + 2 : PR I NT CHR*(20 
6 ) ; CHR* ( 207 ) ; CHRS ( 200 ) 
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1560 LOCATE PX ( A ) , PY ( A ) +3 : PR I NT CHR*(20 
9) ;CHR*( 210 ) ;CHR*(2il ) 

1570 RETURN 

15R0 REM <<<< PAPAGAIO ABAIXADO >>>> 
1590 PLAY "L8"+CHR*(67+A) 

1600 LOCATE PX ( A ) -1 , PY ( A) +2 :PRINT CHR*( 
212) ;CHR*(213) ; CHR* ( 214 ) ; CHR* ( 21 5 ) 

1610 LOCATE PX(A)-1,PY(A) f3:PRINT CHR*l 
209) 5 CHR* (210) 

1620 LOCATE PX ( A ) , PY ( A ) : PR 1 NT CHR$(216) 
1630 RETURN 

1640 REM <<<< PAPAGAIO EM BRANCO >>>> 
1650 LOCATE PX ( A ) , PY ( A ) s PR I NT " 

1660 LOCATE PX ( A ) , PY ( A ) +1 : PRINT " 

1670 LOCATE PX ( A ) -1 , PY ( A ) +2 : PR I NT " 

M 

1600 LOCATE PX ( A)-l ,PY ( A) +3: PRINT " 

II 

1690 RETURN 

1700 REM <<<< DEFINIR CARACTERES >>>> 

1710 RESTORE 1060 

1720 FOR C =1 TO 18 

1730 READ CC 

1740 FOR A— 0 TO / 

1750 READ NN 
1760 VPOKE CC* 8 +A,NN 
1770 NEXT A 
1780 NEXT C 

1790 VPOKE &H2019 , 48 : VPOKE &H201A , 48 : VF' 
OKE &H201B , 96 
1800 RETURN 

1810 REM <<<< INICIALIZAR VAR1AVEIS >>> 

> 

1820 PX ( 1 ) =10 : PX ( 2 ) -14 : PX ( 3 ) =6 : PX ( 4 ) =3 
1830 PY ( 1 )=5 : PY ( 2 ) = 13 sPY ( 3) = i5:PY ( 4) «=7 
1840 RETURN 

1850 REM <<<< CARACTERES >>>> 

1860 DATA 200,16,16,16,16.0,14,31,63 
1870 DATA 201 ,0,0,28, 126, 127, 207, 20T7, 20 
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1880 DATA 202,0,0,0,0,0,0,128,128 
1890 DATA 203,63,49,40,8,16,33,35,3 
1900 DATA 204,255,255,254,124,126,255,2 

55.255 

19 j 0 DATA 205,0,0,0,0,0,128,192,192 

1920 DAI A 206 ,3,3,3,3,o,l , 1 , 1 

1930 DATA 207,223,191,191,223,223,239,2 

47,25.1 

1940 DATA 208,192,192,224,224,224,240,2 
40,248 

1950 DATA 209,1,0,0,0,56,127,0,0 
1960 DATA 210,253,126,12,24,48,252,0,0 
1970 DATA 211,248,120,60,28,14,6,3,0 
1980 DATA 212,7,31,63,127,99,99,127,63 
1990 DATA 213,144,225,247,251,139,115,2 

51.255 

2000 DATA 214,0,254,255,255,255,255,255 
,255 

2010 DATA 215,3,14,252,252,248,240,224, 
128 

2020 DATA 216,16,16,16,16,16,16,16,16 
2030 DATA 217,255,170,85,170,85,170,85, 

255 

2040 REM <<<< 1 EL A >>>> 

2050 FOR Y=1 TO 4:L0CATE 10,Y:PRINT CHR 
*(216) : NEXT Y 

2060 FOR Y-l TO 12:LÜCATE 14,Y:PRINT CH 
R* ( 216 ) : NEXT Y 

2070 FOR Y— 1 TO 14:LOCATE 6,Y:PRINT CHR 
*(216) : NEXT Y 

2080 FOR Y=1 TO 6:L0CATE 3„Y:PRINT CHR* 
(216) s NEXT Y 

2090 FOR X=0 TO 28 : LOCATE X,0:PRINT CHR 
* ( 217 ) : NEXT X 

2100 LOCATE 10,9: PR I NT CHR* ( 217 ) ; CHR* ( 2 
17) ; CHR* ( 217 ) 

2110 LOCATE 14 , 17 «PRINT CHR* ( 217 ) ; CHR* ( 
217) ; CHR* ( 217 ) 

2120 LOCATE 6, 19: PRINT CHR* ( 217 ) ; CHR* ( 2 
17) ; CHR* (217) 
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2130 LOCATE 3,llsPRINT CHR* ( 217 ) ; CHR* ( 2 
17) ) CHR$ ( 217 ) 

2140 LOCATE 7,2i:PRINT "PAPAGAIOS" 

2190 l 7 f 22 : PR I NT " " 

2160 RETURN 

2170 FOR Y=10 TO 15 

2180 LOCATE 17,Y:PRINT STRING*(12," ") 
2190 NEXT Y 
2200 RETURN 

2210 REM <<<< MOVIMENTAR PAPAGAIO >>>> 
2220 A=NO(B) sGOSUB 1650:GQSUB 1590 
2230 FOR T=i TO 100: NEXT T 
2240 GOSUB 1650 : GOSUB 1530 
2250 RETURN 
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Man 


O Devorador de Biscoitos 



Este é o primeiro dos três jogos de fliperama incluídos neste livro. Trata- 
se de uma variação de um jogo bem conhecido, em que você guia o herói 
por um labirinto, comendo biscoitos no caminho. 

Como nos jogos de fliperama as coisas nunca são fáceis, existem al- 
guns fantasminhas que gostam tanto de biscoitos quanto o seu herói. Além 
disso, são capa/cs de matá-lo se o alcançarem! O objetivo é comer o má- 
ximo possível de biscoitos em cada quadro, sem ser morto por um dos 
fantasmas. Quando os biscoitos acabam, aparece um novo quadro. 

Como sempre, você pode usar o joystick ou as teclas de controle do 
cursor para controlar o movimento do Pic Man. 


1000 REI1 <<<< PIC MAN >>» 
1010 3CREEN 1,2,0: CLEAR 500 
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1020 COLOR 15,0,0: CLS : KE Y OFF 
1030 RESTORE : D I M S* ( 1 1 ): HS= 10000 
1040 ON SPRITE GOSUB 1920 
1050 ON I NTERVAL=35 GOSUB 1430 
1060 GOSUB 2320: DEFUSR-342 
10/0 GOTO 1590 

1080 REM <<<< ENTRADA DE DADOS >>>> 

1090 FOR I7.=0 TO 2 

1100 ST7.—ST I CK ( 1 V. ) : I F ST7. THEN I7.=2 

1110 NEXT I 7. : RETURN 

1120 A~USR ( 0 ) : I P= ASC ( INPUT*(1 ) ) 

1130 RETURN 

1340 RF M <<<< CARACTERE EM X,V >>>> 

1,150 C7.“614 4 + INT ( Y/i/8 ) *32+X7./8 : RETURN 
1160 REM <<<< CARACTERE ACIMA >>>> 

1170 Y7.=Y7.-1 : GOTO 1200 

11B0 REM <<<< CARACTERE ABAIXO >>>> 

1190 Y7.=Y7.+16 

1200 GOSUB 1150: C T7.“C7.+ 1 : CL7.=*VPEEK ( C7. ) : 
CR7.=VPEEK ( CT7. ) : GOTO 1 260 
1210 REM <<<< CARACTERE A ESQUERDA >>>> 
1220 X7.=X7.-2:GQTO 1250 

1230 REM <<<< CARACTERE A DIREITA >>,» 
1240 X7.=X7.+17 

1250 GOSUB 1150:CT7.=C7.4 32:ÍJL7.=VPEEK(C7.) 
:CR7.=VPEEK(CT7.) 

1260 IF CL7.=251 THEN VPOEE C7. , 32 : DT7.=DT 
7,+lsIF PM7. THEN PS=PS+50:IF PS>10000 TH 
EN HS=PS 

1270 IF CR7.=251 THEN VPOKE CT7. , 32 : DT7.-D 
T7.+1HF PM7. THEN PS-PS+50:IF PSM0000 T 
HEN HS=PS 

1280 IF CL7.-250 OR CR7.=250 THEN REIURN 
1290 C7.=0: RETURN 

1^00 REM <<<< ESCOLHER A DIREÇÃO >>>> 
1310 H7.-INT<RND(-TIME)*3-l)*4lIF H7. THE 
N V7.-0: RETURN ELSE V7.=-INT( RND(-TIME) *3- 
1 ) #4 : RETURN 

1320 REM <<<< POSICIONAR SPRITES >>>> 
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1330 PUT SPRITE 1 , ( X IV. , Y17. ) , 2 , PB'/. 

1340 PUT SPRITE 2, ( X27., Y2X) ,4,PB7. 

1350 PUT SPRITE 3 , ( X37. , Y37. ) , 13 , PB7. 

1 360 PU I SPR 1 TE 0 , ( X 07. , Y07. ) , 1 0 , P07. 

1370 RETURN 

1380 REM <<<< IMPRIMIR A CONTAGEM >>>> 
1390 LOCATE 22,0:PRINT USING "#######" ; 
HS 

1400 LOCATE 22 , 1 : PRINT USING "#######••; 
PS 

1410 RETURN 

1420 REM <<<< MOVIMENTAR O PIC MAN >»> 
1430 PLAY n t255116olc" 

1440 T07.=C7. s T17.=CT7. : T27.= X7. : T37.=Y7. : T47.=C 

L7.:T57.=CR7.:PM7.=1:G0SUB 1090 

1450 IF ST7.= 1 OR ST 7.» 5 THEN P07.*0 : H07.=0 

: IF ST7.= l THEN V07.=-8 s S07.=2 ELSE V07.=8: 

S07.=4 

1460 IF 5T7.=3 OR ST7.=7 THEN P07.^0 : V07.=0 
: IF ST7.=3 THEN H07.=8 : S07.=3 ELSE H07.—8: 
S07.- 1 

14/0 X 7.» X 07. : Y7.*=Y07. 

1480 IF V07.<0 THEN GOSUB 1170 
1490 IF V07.>0 THEN GOSUB 1190 
1500 IF H07.>0 THEN GOSUB 1240 
1510 IF H07.<0 THEN GOSUB 1220 
1520 IF C7. THEN 1540 
1 530 X07.= X07.+ H07. : Y07.=Y07.+V07. 

1540 P07.=P07. XOR S07. 

1550 IF X07.>232 THEN X07.=8 
1560 IF X07.<8 THEN X07.=232 
1 570 CV.=T07. : CTV1= T 1 7. : X7.-T27. : Y7.=T37. : CL7.=T 
47. :CR7.=T57.:PM7.=0: GOSUB 1390: GOTO 1360 
1580 REM <<<< INICIO DO JOGO >>>> 

1590 GOSUB 2030 

1600 X 07.= 120 : Y07.= 144 : H07.=-8 : V07.=0 : S07.-1 
1610 GOSUB 1980 

1620 P07.= i :PB%“5: SPRITE ON: INTERVAL ON 
1630 GOSUB 1330 



PicMan 165 


1640 GÜSUB 1120 
1650 GQSUB 1330 

1660 IF DT7.=352 THEN I NTEF^VAL ÜFFíGOSUB 
21 10 : DT7.=0 : GOTO 1600 
1670 PB7.-PB 7. XQR 3 

1680 REM <<<< MOVIMENTAR GS FANTASMAS > 

>» 

1690 X 7.= X 1 7. : V7.= Y 1 7. 

1700 IF H 1 7. < 0 THEN GÜSUB 1220sGOTO 1740 

1710 IF H 1 7. > 0 THEN GOSUB 1240 .-GOTO 1740 

17-20 IF V17.<0 THEN GOSUB 11 70: GO TO 1740 

1730 IF V17.>0 THEN GOSUB 1190 

1740 IF C7. THEN GOSUB 1310 : H17.=H7. : V 17.=V 
7.: GOTO 1690 

1750 X 1 7.= X 1 '/.+ H17.: Y1 7.-Y17.+V1 7. 

1 760 X 7.= X 27. : Y7.= Y27. 

1770 IF H27.<0 THEN GOSUB 1220:GUTO 1810 

1780 IF H27.>0 THEN GÜSUB 1240: GOTO 1810 

1790 ir V27.<0 THEN GOSUB 1170:GQTO 1B10 

1800 IF V27.>0 THEN GOSUB 1190 

1810 IF C7. THEN GOSUB 1310 : H27.-H7. : V27.-V 
7.: GOTO 1760 

1820 X 27.— X 27. + H 27. : Y27.«Y27.+V27. 

1830 X7.= X37. : Y7.=Y3 7. 

1840 IF H37.<0 THEN GOSUB 1220: GOTO 1880 

1850 IT H37.>0 THEN GOSUB 1240: GOTO 1880 

1860 IF V37.<0 THEN GOSUB 1170:GOTO 1880 

1870 IF V37.>0 THEN GOSUB 1190 

1880 IF C7. THEN GOSUB 1310 : H37.=H7. : V37.=V 
7.: GO TO 1830 

1890 X37.=X37.+H37. : Y37.-Y37.+V37. 

1900 GOTO 1650 

1910 REM <<<< PERDE UMA VIDA >>>> 

1920 SPR I rE 01 F : I NTERVAL OFF 
1930 IF ABS( X07.-X17.)>15 AND ABS ( X07.-X27. 
) >15 AND ABS ( X07.-X37. ) > 15 OR ABS ( Y07.-Y17. 
) >15 AND ABS<Y07. Y27.) >15 AND ABS(Y07.-Y3 
7.) >15 I HEN GOSUB 1980: GOSUB 1330: SPR I TE 
UN : I NTERVAL ON : RETURN 
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1940 PLAY "t?b5H6a3bagfedc" 

1950 LT«LF-1:IF LF=0 THEN PS^0:GOSUB 14 
00:RETURN 1590 

1960 PUT SPR1TE LF+3, <LF*16,0) ,0,3 

1770 RETURN 1600 

1980 X 17.“24 1 Y17.=24 :H17.=8: V17.=0 

1990 X 27.^2 16 : Y27.-24 : H27.= -0 : V27.-0 

2000 X37.= 1 20 : Y37.= 1 60 : H37.«8 : V37.-0 : I F RND 

(-TIME) >.5 THEN H37.=-H37. 

2010 RETURN 

2020 REM <<<*: INI Cl ALIZAR »» 

2030 GOSUB 2110:LF-5:DT7.»0 


2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2100 

2190 

2200 

2210 

2220 

2230 

2240 

2250 


FOR 1=4 TO 7 I J= ( I —3 ) ♦ 16 
PUT SPRITE I,(J,0),10,3 
NEXT I 

LUCATE 14,0: PR I NT "RECORDE:' 1 ; 
LOCATE 14,1: PR I NT "PONTOS:"; 
RETURN 

REM <<<< DESENHAR LABIRINTO >>>> 


WI 

D 1 H 

29 

: LUCA 1 L 0 

o 

9 


PR 

INI 

St 

(0) 




PR 

INT 

St 

(1) 

: PR INT 

st 

(1) 

PR 

INF 

st 

(2) 

: PR I NT 

st 

(2) 

PR 

INT 

st 

( 3 ) 

: PR I NI 

st 

(3) 

PR 

INT 

St 

('D 

SPRINT 

st 

(4) 

PR 

INT 

ST* 

(5) 

: PR I NT 

st 

(6) 

PR 

INI 

St 

( 7) 

: PR INT 

st 

(8) 

PR 

INT 

st 

(9) 

SPRINT 

st 

(9) 

PR 

INT 

st* 

(2) 




PRINT 

st 

(3) 

: PR INT 

st 

(3) 

PR 

INT 

st 

( 10 

) 



PRINT 

st 

(11 

) -.PRINT S 

t(l 

PR 

INT 

5t 

(0) 

• 

i 




RETURN 


2260 REM <<<< DEFINIR AS ITTRMAS >>}> 
2270 SP$ a " " 

2280 FOR J=1 TO 32 

2290 RLAD 1 1$ : SPt»SPt+CHRt ( VAL( "fth" +Ht ) ) 
2300 NEXT J 
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2310 RETURN 

2320 FOR 1=250 TD 25i:K=I*0 
2330 FÜR J=0 TO 7 

2340 READ H*:VPOKE J-t K , VAL ( "£<h" ) 

2350 NEXT J , I : VPUKE 8223,96 

2360 FüR 1=0 TO 6 

2370 GOSUB 2270 : SPR I TE * ( I ) **SP$ 

2300 NEXT I 

2390 S1*=CHR*<250) :S2S=CHR* (251 ) 

2400 S3**SlÜ + Slí :S4*=S2*+S2$ 

2410 S5S*S1*+S3*:S6*»S2**S4* 

2420 S7$-S3$ : SU$=S4*+S4$ 

2430 S9í=S3$+S7*:S0*-S4*+S8* 

2440 S* ( 0 ) -STR ING$ ( 20 , Sl$ ) 

2450 S*( 1 )«S1Í ♦S0S+S3*+S01i+S8*+S3*+BM*+ 
Sl$ 

2460 S* ( 2 ) -S15H S4* » S3*+S4*+S3*+S4* +S9* » 
S4*-*-S3T+S4Sh-S3$+S4$+S1$ 

2470 ( 3 ) =S1*+S4$+S3$+S0$ » ÍJ0í- + S0i<+S3*+ 

S4S+S1* 

24B0 Sí < 4 ) =SH»+S0$+S3TH S4$ +S9*+S4$+S3T* + 
S01M-S1* 

2490 S*( 5)=S1J. i S/$+S4*+S3$+S8*+S0* i S3*+ 
S41h*S1$4*S7$ 

2500 8$(6)=SPACE$ ( 1 ) +S0* f S3$+S8$+S0$+S3 
*4-S0*+SPACE*(l) 

2510 Sf (7)=SPACl $( 1 )+S0*+S3*+54$+S9$lB4 
S+S3Í 4-S0Í+SPACE* ( 1 ) 

2520 S* (8)=Sl$-« S7* fS4*+S3*+S4*+Si$+SPAC 
E*( 4)+Sl$l S4$+S3*+S4*+S7‘ÍH‘Si* 

2530 S$ ( 9 )=S1* + S0$+S3$+S4$ * SI «+SPACE4» ( 4 
) +S1$ < S4$-f S3*+50*+Si* 

2540 S$( 10)=S1$+S4$+S7$+S4$«SV$-»S9$»+S4* 
♦S7*+S4$+S1* 

2550 S$( 11 )=S1$+STRING$(26,S2$ ) +S1$ 

2560 RETURN 

2570 REM «<< DADOS >>>> 

2580 DATA f f , c3, c3, c3 , c3 , c3, c3, f f 
2590 DATA 01,0,0,0,0,0,0,81 
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2600 

REM 

2610 

DATA 

2620 

DATA 

2630 

DATA 

2640 

DATA 

2650 

DATA 

2660 

DATA 

2670 

DATA 

2680 

DATA 

2690 

DATA 

2700 

DATA 

2710 

DATA 

2720 

DATA 

2730 

DATA 

2740 

DATA 

2750 

DATA 

2760 

DATA 

2770 

DATA 

2780 

DATA 

2790 

DATA 

2000 

DATA 

2810 

DATA 

2820 

DATA 

2830 

DATA 

2040 

DATA 

2850 

DATA 

2860 

DATA 

2070 

DATA 

2880 

DATA 

2890 

REM 

2900 

DATA 

2910 

DAI A 


3,f ,3f ,3f ,7f ,7f ,ff ,fe 
fe,ff,7f,7f,3f,3f,f,3 
c0,f0,fc,fc,fe,fe,ff,7t 
7f , f f , fe,fe, fc,fc,f0,c0 
3,f,3f,3f,if,f,7,2 
2,7,f,lf,3f,3f,f,3 
c0,f0,fc,fc,fe,f«?,f f ,7f 
7f , ff ,fe,fe,fc,fc,f0,c0 
0 , 0 , 30 , 38 , 7c , 7e , f f , f e 
fe,ff ,7f ,7f ,3f ,3f ,f ,3 
0 , 0 , c , lc , 3e , 7e , f f , 7f 
7f , ff . fe,fe,fc,fc,f0,c0 
3,f,3f,3f,7f,7f,ff,fe 
fe,ff ,7f ,7f ,3f ,3f ,f ,3 
C0,f0,fc,fc,f8,f0,e0,40 
40 , fc?0 , f0,f8,fc,fc,f0,c0 
3,f ,3f ,3f ,7f ,7f ,ff ,fe 
f e , f f , 7e , 7c , 38 , 30 ,0,0 
c0,f0,fc,fc,fe,fe,f f ,7f 
7f , f f ,7e,3e, lc , 18,0,0 
0, 10,25,47, t , f ,9,9 
lf ,if ,lf ,3f ,3f ,7f ,67,43 
0 , 18 , 64 , e2 , f 0 , f 0 , 90 , 90 
fG, f 0 , f8, f c , f c , f e , eò , c2 
e0,18,5,7,f ,f ,9,9 
1 f , 1 f , 1 f , 3f , 3f , 7 e , 3c , 18 
7, 18,a0,e0, f0, f 0,90, 90 
f8,fÜ,f8,fc,fc,7e,3c,18 

I 

il ,c3,c3,c3,c3,c3,c3,ff 
81 , 0 , 0 , 0 , 0 , 0 , 0,81 




L> ,r 


Travessia Perigosa 

Era uma vez, na Austrália, um pequeno canguru chamado Frigger. Frig- 
ger morava peno de um rio caudaloso, cheio de troncos flutuantes. Cos- 
tumava Ficar sentado do lado de fora da loca, contemplando a bela 
paisagem que o cercava. Um dia, porém, tudo mudou. Os humanos che- 
garam e construiram uma auto-estrada do outro lado do rio. A partir desse 
dia, sempre que Frigger e os amigos saem em busca de comida, têm que 
atravessar a estrada (evitando os carros) e o rio (pulando de tronco em 
tronco) para chegar em casa. 

Só você, caro leitor, pode ajudar Frigger e seus amigos a voltarem 
para casa em segurança. Use o joystick ou as teclas de controle do cursor 
para guiar os cangurus e será recompensado com muitos pontos! 
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1000 REM <<<< FRIGGER - ANDY/BOOTSY >>> 

1010 SCREIN 1,0,0: CLEAR 1000 

1020 CDLOR 15,0,0:KEY CJFF 

1030 WIDTH 32 : HS7.*5 : GOSUB 1670 

1040 KA7.~3 : SC7.=0 

1050 GOSUB 1600 : GOSUB 1540 

1060 KX7.- 128:KY7.= 160:K7.=1 

1070 PUT SPRITE 0, (KX7.,KY7.) ,15, KV. 

1080 REM <«l<< LOOP PRINCIPAL >»> 

1090 GOSUB 1350: IF (K7. AND 1)=0 THEN GO 
SUB 1480: GOTO 1090 

1100 CHX»VPEEI (6144 + (FX7.+4)/8+INI((KY7.+ 
4)/8)*32) 

1110 U CHX032 AND CH7.O240 AND (CHX<2 

08 OR CH7.>210) THEN 1170 

1120 IF FYX=»i6 THEN 1290 

1130 GOSUB 1310: IF ST7. THEN GOSUB 1470 

1140 II CH7.:> 207 AND CH7.<211 THEN KX7.=KX 

7.+ (8 AND KY»32) (8 AND KY7.-48 ) : GOTO 10 

70 

1150 GOTO 1090 

1160 REM <<<< PERDE UMA 9 1 DA >»> 

1170 KA7.-KA7.-1 :PI AY "ol 164baqf edc " 

1180 IF k A 7. FHEN GOTO 1050 
1 190 PUT SPRITE 0, (0,200) ,0,0 
1200 LOCATE 2,14 

1210 PRINT "SUAS VIDAS ACABARAM ! " 

1220 LOCATE 2,16 

1230 PR INI "APERTE O BOI AO OU A BARRA D 
E" 

1240 LÜLATE 2,18 

1250 PR INI "ESPAÇO PARA COMEÇAR DE NOVO 

M 

1260 GOSUB 1310: IF ÍG7.=0 THEN 1260 
1270 GOTO 1040 

1280 REM <<<< CONSEGUIU >>>> 

1290 PLAY " o 1 1 64cdef gabo2cdef qabo3cdef g 
abo4cripf gab" :SCX=SC7.+i :GOTO 1050 
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1300 REM <<<< ENTRADA DE DADOS >>» 

1310 FOR 17- 0 TO 2:ST7.-51 1CK( 17.) íTG7.«ST 
R I G ( 1 7. ) 

1320 IF ST 7. OR 1Ü7. TlTEN 17=2 

1330 NEXT I7.SRETURN 

1340 REM «<< MOVIMENTO »» 

1350 L2$°R I 01 IT* ( L2$ , 1 ) +LEFT * ( L2* , 31 ) 
1360 Ll*»RlGHr*(LlS,31)+LEFT*(Li* , 1 ) 
1370 C3*«RIGMT$ (C3S, 1 ) +LEFT $ ( C3T ,31 ) 
1380 C2*=RIGHT*(C2*,3i)+LEFT*(C2*, 1 ) 
1390 C1*-RIGHT*(C1*, 1 ) +LEFT* ( Ci* , 31 > 
1400 LOCATE 0,4: PRINT L2*; 

1410 I QDATE 0,6: PR I NT Li*; 

1420 LOCATE 0,14 SPRINT C3*; 

1430 LOCATE 0,16: PRINT C2 * 5 
1440 LOCATE 0,18; PRINT C1S; 

1450 RETURN 

1460 REM <«< MOVIMENTO DO CANGURU »>> 
1470 K7.-ST7. : M7=ST7 
1400 K7.-K7. XÜR 1 

1490 KX7.»KX7+(U AND M7=3)-(8 AND M7.-7 ) 
1500 KY7.-KY7.+ ( S AND 117*5) (U AND M7=l ) 
1510 PUT SPR I TE 0 , ( KX7. , KY7. ) , 1 5 , K7. 

1520 RETURN 

1530 REM <<<< CONTAfH M« í TC. » 

1540 IF SC 7. HS7. THEN HS7-5C7 
1 550 I OCATE 7,0: PR I NT SC7. 

1560 LOCATE 16,0: PR IN! HS7 
1570 LOCATE 27,0 sPRINT KA7. 

1580 RETURN 

1590 REM <«< TELA >>> ■ 

1600 LOCATE 0,1 

1610 PRINT Bl*;RV*;B2í 

1620 LOCATE 0,20: PRINT B3*;B4$; 

1630 LUCAIE 1,0 

1640 PRINT " FTOS: REC: VIDAS:" 

1650 BOTO 1400 

1660 REM <<<< FORMAS »>> 

1670 C7.~192 
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16B0 READ 17.: IF I7.<0 THEN 1750 
1690 FOR J7.-0 TO 7:VPOK.E C7.Í8+J7. , 17. 

1700 READ IV.jNEXT J7. 

>*1710 VPOKE 8192+C7./8 , IV. 

1720 C7.=C7.+1 

1730 IF C7.-194 OR C7.=203 OR C7.=2il OR C 

7. -217 OR U7.=226 OR C7.-233 QR C7.=241 THE 

N C7.MC7.+7) AND 248 

1740 GOTO 1680 

1750 FOR I 7-0 TO 7 

1760 Sí = " " : FOR J7.=W IO 7: READ C7. 

1770 Sí=Sí » CHkí (C7.) :NEXT J7. 

1700 SPRITEÍ( I7.)»Sí:NEXT 17. 

1 790 CRÍ“CHRÍ (192 ) +CHR* (193 ) 

1800 LYí=CHRí ( 202 ) *-CHRí ( 201 ) +CHRÍ ( 200 ) 
1810 BKÍ=CI IR* ( 224 ) +CHRÍ ( 225 ) 

1820 LGí=CHRí ( 208 ) +CHRÍ ( 209 ) +CHRÍ ( 210 ) 
1830 Cií-CRÍ +CRÍ+SPACEÍ ( 8 ) +CRÍ+5PACEÍ ( 4 
) -* CRí-t CRÍ + CRÍ SPACEÍ ( 2 ) +CRÍ +SPACEÍ < 2 ) +C 
Rí 

1040 C2í=LYí +SPACEÍ ( 12 ) +LYÍ+SPACEÍ ( 3 ) +L 
YÍ+LYÍ+SPACEÍ ( 5) 

.1850 C3í=BKí ♦ BKí+SPACEí ( 8 ) +BKÍ +BK í +BKÍ + 
BKÍ < BKí+SPACEí ( 8 ) +BKí 

1860 Li í =LGí +STR I NGÍ ( 3 , CHRí ( 248 ) )+LGí+S 
TR I NGÍ < 3 , Cl IRí ( 248 ) ) +STR I NGí ( 3 , CHRí ( 216 ) 

) +5 T R J NGí ( 2 , CHRÍ ( 248 ) ) +LGÍ 4 S 7 R I NGÍ ( 3 , CH 
Rí ( 248) ) +LG1> +STR I NGí ( 2 , CHRí ( 248) ) +STRIN 
Gí ( 2 , CHRí ( 216 ) ) «OTRINGí (2, CHRÍ (248) ) 
1870 L2í«LGí I STRINGÍ ( 3 , CHRÍ ( 248) HLGí+S 
TR I Nr ií ( 3 , CHRí ( 248 ) ) +STR i NGÍ ( 3 , CHRÍ ( 216 ) 

) +STR I NGí ( 3 , CHRí ( 248 ) ) 4- LGÍ +STR I NGÍ ( 3 , CH 
Rí (248) )+STRINGí (4 % CHRí (216) )+STRINGí (2 
, CHRí (248) ) 

1800 RVí»STRIN6í ( 160 , CHRí ( 248 ) ) 

1890 Bií =STR I NGÍ ( 32 , CHRí ( 232 ) ) 

1900 FOR I "4=1 TO 16 STEP 4 

1910 Blí“Bií«-STRINGÍ (4, CHRÍ (232) ) +SPACE 

í ( 1 )+STRINGí (3, CHRí (232) ) 
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1920 NEXT VÁ 

1930 BNS=LEFT* ( BN$ , 63 ) : BN$=BN*+CHR* ( 232 
) 

1940 B2*=STRING*( 160 , CHR$ ( 240 ) ) 

1950 B3*=STR I NG$ ( 64 , CHR* ( 240 ) ) 

1 960 B4$=STR I NG* ( 32 , CHR* ( 232 ) ) 

1970 RETURN 

1980 REM <<<< DADOS DAS FORMAS »>> 

1990 DATA 7,28,56,127,219,231,36,24,208 
2000 DATA 128,64,32,252,218,229,38,24,2 
08 

2010 DATA 0,0,0,0,255,255,60,24,96 
2020 DATA 64,64,64,64,255,255,128.0,96 
2030 DATA 7,9,9,63,127,127,7,3,96 
2040 DATA 191,109,182.109,218,125,171,9 

5.196 

2050 DATA 255,181,235,182,47,254,93,190 
,196 

2060 DATA 250,213,190,91,182,109,182,25 

3.196 

2070 DATA 0,0,67,172,240,192,255,0,20 
2080 DATA 0,1,51,14,55,72,72,48,176 
2090 DATA 96,200,244,12,154,164,228,24, 
176 

2100 DATA 255,255,255,255,255,255,255,2 
55,192 

2110 DATA 0,127,127,127,127,127,127,127 
, 160 

2120 DATA 170,85,170,85,170,85,170,85,8 
4 

2130 DATA -1 

2140 REM <<<< DADOS DOS SPRITES >>>> 
2150 DATA 36,24,90,60,24,60,60,219 
2160 DATA 36,24,24,60,90,189.126,36 
2170 DATA 8,24,28,24,60,61,58,220 
2180 DATA 4,12,14,24,60,188,104,94 
2190 DATA 219,60,60,24,60,90,24,36 
2200 DATA 36,126,189,90.60,24,24,36 
2210 DATA 16,24,56,24,60,188,92,59 
2220 DATA 32,48,112,24,60,61,29,122 




Salvando a Mocinha 


Dinkey Kong pertence à família dc jogos de fliperama em que o herói tem 
que chegar ao topo de um edifício, evitando uma série dc obstáculos que 
aparecem no caminho. 

Nesta versão, o monstro que aparece na parte superior da tela rap- 
tou a namorada do herói e a mantém prisioneira. Agora ele passa o tem- 
po todo rolando grandes tonéis de aço, em uma tentativa de esmagar o 
herói. 

O jogo tem tres telas diferentes; se você conseguir chegar ao final, 
a primeira tela voltará a aparecer. 

Os movimentos do herói são controlados com o auxilio do joystick 
ou das teclas de controle do cursor. Para pular, é só apertar o botão dc 
tiro ou a barra dc espaço. 
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1000 REM <<<< DINKEY KONG- BOOTSY >>» 

1010 SCREEN 1,2,0: COLOR 15,0,0: CLS 

1020 KEY OFF: GOSUB 2140 : HS7.= 1000 

1030 SC7.«0 : LF7.=3 : PS*/.«0 

1040 XP7.=20:YP7.=160 

1050 GOSUB 1910: SB7.= 4 : SMV.=0 

1060 I F YP7.=32 THEN GOSUB 1860 : SC7.= ( SC7. 

+1) AND 3: GOSUB 1040 

1070 GOSUB 1400: IF C7. THEN 1180 

1 080 X 7.- X P7. : Y7.-YP7. 

1090 IF TG7. THEN GOSUB 1550: GOTO 1180 
1100 IF ST7.“I I HL N GOSUB 1500 ELSL GUSU 
B 1490 

1110 IF ST7.= 1 AND C7.=0 AND CH7.=240 THEN 
UD7~-2 : GOSUB 1630: GOTO 1180 
1120 IF ST7.=5 AND C7.=0 AND CH7.=240 THEN 
UD7.=2: GOSUB 1630: GOTO 1180 
1130 IF ST7.=3 AND CH7.-32 THEN 1670 
1140 IF ST7.=3 THEN XPX=XP7.+4 : DX~2 : IF SM 
7. AND 2 THEN SM7.=0 

1150 IF S I 7.= / AND U7.»32 THEN 1670 
1160 IF ST7.-7 THEN XP7.“XP7.-4 : D7.=— 2s IF ( 

- SM7. AND 2 ) =0 THEN SM7.=2 

1 1 70 SM7.=SM7. (xpR 1 : PUT SPR I TE 0 , ( XP7. , YP 
7. ) , 1 5 , SM7. 

1180 L7.=0 : FOR 17.^0 TO 3 1 J 7.= X P7.-BA7. ( 1 7. , 0 
) : K7.=YP7.-BA7. ( 1 7. , 1 ) 

1190 IF ABS( J7. ) <12 AND ABS(K7.)<12 THEN 
L7.-1 : 17. =3 

1200 NEXT 17.: IF L7. THEN 1670 
** 1210 IF B7.<3 THEN IF RN D ( T1ME)^.95 THE 
N ri7.-B%4 1 : BA7. ( D 7. , 0 ) = 1 20 : DAV. ( B7. , l ) =32 
1220 IF B7.=0 THEN 1060 
__ p 1230 SB7.=SB7.(3bR 1 : I7.= l 

1 240 J 7.=BA7. ( 1 7. , 0 ) : K7.-BA7. ( 1 7. , 1 ) 

. 1250 IF K7.-32 OR K7.-96ÇBtò K7.= 1 60 THEN J 
7.=J7.-4 ELSE J7.=*J7.+4 
1260 IF K7.<32 THEN 1280 
12 /0 PUT SPR I TE 1 7. , ( J 7. , K7. ) , 12 , SD7. 
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1280 X 7.=J 7. : Y7.*=K7. : GOSUB 1490 

1290 IF C7.=0 AND CH7.-32 THEN GOSUB 1820 

: GOSUB 1310 

1300 IF C7.=0 AND CH/í-240 THEN IF RND ( -T 
IME)>.66 THEN GOSUB 1B20 
1310 IF J7.= 16 AND K7.= 160 THEN 1350 
1320 BA7. ( 1 7. , 0 ) = J 7. : BA7. ( 1 7. , l ) -K7. 

1330 I7.= I7.+1 1 IF I7.>B7. THEN 1060 
1340 GOTO 1240 

1350 FOR L7.» 1 7. TO B7. : J 7.=BA7. ( L7.+ 1 , 0 ) : BA7. 
( L7. , 0 ) = J7. s K7.=BA7. (L7.+1 , i ) : BA7. ( L7. , 1 ) -K7. : I 
F K7.=0 THEN 1370 

1 360 PUT SPR £ TE L7. , < J 7. , K7. ) , 1 2 , SB 7. 

1370 NEXT L7. 

1380 1 7.= 1 7.-ls GOTO 1330 

1390 REM <<<< ENTRADA DE DADOS >>>> 

1400 C7.-1 : FOR 1 7.=0 TO 2 : ST7.-ST ICK ( 17. ) : T 
G7.=STRIG( 17.) 

1410 IF ST7. OR TG7. THEN IX=2:C7.-0 
1420 NEXT 17.: IF ST7.=5 THEN 1400 
1430 RETURN 

1440 A=USR 1 ( 0 ) : I $= I NPUT $ ( 1 ) 

1450 RETURN 

1460 REN <<<< CARACTERE EM X,Y >>>> 

1470 CH7.» VPEEK ( *<H 1 800+ INT ( Y7./8 ) #32+X 7./ 8 
) -.RETURN 

1480 REM <<<< COM APOIO/SEM APOIO >>>> 
1490 Y7.=Y7.+8 

1500 X7.=X7.+4: Y7.=Y7.+8 : GOSUB 1470 : C7«CH7. 

1510 X7.=X7.+7: GOSUB 1470 

1520 IF C7.0CH7. THEN RETURN 

1530 C7.=0: RETURN 

1540 REM <<<< PULAR >>>> 

1550 RESTORE 2640: FOR 17. = 1 TO 12 
1 560 READ V07. : XP7.= XP7.+D7. : YP7.=YP7.+V07. 
1570 PUT SPR I TE 0 ,( XP7. , YP7. ), 15 , 0 
1580 NEXT 17. 

1590 X y.=XP7.+7 : Y7.=YP7.+ 1 6 

1600 GOSUB 1470: IF CH7.=32 THEN 1670 
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1610 X7.=XP7.~7 : Y7.-YP7.-16 s RETURN 
1620 REM <<<< SUBIR ESCADA >>>> 

1630 FOR I7.-1 Tü 16: YP7.=YP7.+UD7. 

1640 PUT SPR I TE 0, < XP7., YP7.) , 15,0 
1650 NEXT 1 7. s RETURN 
1660 REM <<<< CAIR >>>> 

1670 PLAY "L6402BAGFEDC01BAGFEDC" 

1680 FOR I7.=YP7. TO 192 STEP 2 
1690 PUT SPR I TE 0 , ( XP7. . 17.) ,15, SP7. 

1700 NEXT 17. 

1710 REM <<<< PERDE VIDA >>>> 

1720 LF7.=LF7.-1 : IF LF7. THEN 1040 

1730 LOCATE 4,10:PRINT " SUAS VIDAS ACA 

BAR AM" 

1740 LOCATE 4, 14 ;PRINT " APERTE O BOT 
AO " 

1750 PRINT SPACE$ (22) 

1760 LOCATE 4,16:PRINT “OU A BARRA DL E 
SPAÇO “ 

1770 PRINT SPACElv ( 22 ) 

.1780 LOCATE 1,IG:PRINT “ PARA JOGAR 
DE NOVO 

3 790 GOSUB 1400: IF TG7.=0 THEN 1790 
1800 GOTO 1030 

1810 REM <<<< QUEDA DO BARRIL >>>> 

1820 FOR L7.= l TO 16:K7.=K7.+2 
1830 PUT SPR I TE 1 7. , ( J7. , K7. ) , 12 , SB7. 

1840 NEXT L7.: RETURN 

1850 REM <<<< CONTAGEM >>>> 

1860 PS7.=PS7.+500 

1870 IF PS7.>HS7. THEN HS7.=PS7. 

1880 PLAY ”L6404CDEFGAB05CBEFGAB06CDEFG 
AB" 

1090 RETURN 

1900 REM <<<< TELA >>>> 

1910 CLSsFOR I7.=0 TO 4 

1920 LOCATE 8 - 1 7.#2 , 1 7.* 4 +6 

1930 PRINT STRING*( I7.*4+12 , CHR* ( 248 ) ) 

1940 NEXT 17. 
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1 950 SL7.= 1 0-SC7. * 2 : SH7.=SC7. * 2 
1960 RESTORE 2620: FOR t%m± TO SL7. 

1970 READ LX7.,LY7.:FOR J7.= i TO 4 
1900 LOCATE L X7. , LY7. : PR I NT Cl IR* ( 240 ) 

1990 LY7.=LY7.+ 1 :NEXT J7.,I7. 

2000 IF 5H7.=0 THEN 2040 
2010 FOR IV.-- 1 TO SH>. 

2020 READ LX7. , LY7. : LOCATE LX7.,LY7. 

2030 PR I NT SPC í 2 ) : NE X T 17. 

2040 PUT SPR I TE 0 f ( XP7., YP7.) , 13,0 

2050 C/C-224 : FOR I7.= 2 TO 5: FOR J7.= 13 TO 

15 

2060 LOCATE 37 . , 1 7. : PR I NT CHR* ( C7. ) ; : C7.-C7. 
+ 1 

2070 NEXT J 7. , I 7. 

2080 LOC, , 1 : PR I NT PS71: LOCATE 1 , 1 : PR 

INT "PTS : " 

2090 LOCATE 14,1: PR INT HS7. : LOCATE 11,1: 
PR INT "REC:" 

• j 

2110 FOR í 7.-0 I O 4 : BA 7. ( 1 7. , 0 ) = 108 : NEXT I 
7. 

2120 RETURN 

2110 REM <<<< FORMAS >>>> 

2140 RE ST ORE 

2150 FOR C 7.-22 4 TO 23^ 

2160 GOSUB 2240 
21/0 NEXT C7. 

2180 C7.~240: GOSUB 2240 
2190 C7.=248 : GOSUB 2240 
2200 FOR S7.=0 TO 5 
2210 GOSUB 2200 
2220 NEXT 57. 

2230 RETURN 

2740 CA7.«C7.#8:FQR 17.-CA7. TO CA7.+7 
2250 READ J7.:VP0KE I7.,J7.sNEXT 17. 

2260 READ J7.íVP0KE C7./8+8192 , J7. 

2270 RETURN 

2280 " :FOR 17.-0 10 31 
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2290 READ J7. : SS~S*+ CHR* < J7. ) s NEX T i*/. 

27.00 SPR I I F ^ ( 87. ) -SS í RE I URN 
2310 REM <<<< DINKEY KONG >»> 

2320 DATA 0,0,16,44,62,28,56,112,96 
2330 DATA 129,66,126,90,126,100,86,60,9 
6 

2340 DATA 0,0,8,52,124,56,28,14,96 
2350 DATA 112,121,127,63,31,7,1,1,96 
2360 DATA 60,255,255,255,231,215,235,21 

3.96 

2370 DATA 14,158,254,252,248,224,128,12 
0,96 

2380 DATA 1,3,15,15,31,63,62,62,96 
2390 DATA 1/1,213,235,215,235,255,60,0, 
96 

2400 DATA 128,192,240,240,248,252,124,1 

24.96 

2410 DATA 30,15,15,3,59,127,127,57,96 
2420 DATA 0,0,0,0,129,195,195,129,96 
2430 DATA 1 20 , 240 , 240 , 1 92 , 220 , 254 , 2 54 , 1 

56.96 

2440 REM <<<< CENÁRIO »>> 

2450 DATA 129,255,129,129,129,255,129,1 
29,128 

2460 DATA 255,36,66,129,129.66,36,255,1 
60 

2470 REM <<<< HOMEM >>>> 

2480 DATA 3,7,7,13,7,3,7,15,31,55,7,7,1 
4,29,25,12 

2490 DATA 128,192.224,128,192,128,192,2 
24 , 240 ,176,128,128,128,128, 192 , 224 
2500 DATA 3,7*7,15,7,3,7,6,7,15,15,7,7, 
7,13,14 

2510 DATA 128,192,224,128,192,128,128,1 
28,0, 192 , 224 , 128 , 128 ,128,192, 224 
2520 DATA 1,3,7,1,3,1,3,7,15,13,1,1,1,1 
,3,7 

2530 DATA 192,224,224,240,224,192,192,2 
40 , 240 , 236 , 224 , 224 ,112, 184 ,152, 48 
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254(3 DATA i , 3, 7 , i , 3 , 1 , 1 , 1 , 0 , 3 , 7 , 1 , 1 , 1 , 

,7 

2550 DATA 192,224,224.240,224,192,224,9 
6 , 224 , 240 , 240 , 224 , 224 , 224 ,176,112 
2560 REM <<<< BARRIL >>>> 

2570 DATA 0,0,0,0,0,0,3,7,12,24,24,25.2 

6.12.7.3 

2580 DATA 0,0,0,0,0,0,192,224,48,88,152 
,24,24,48,224,192 

2590 DATA 0,0,0,0,0,0,3,7,12,26,25,24,2 

4.12.7.3 

2600 DATA 0,0,0,0,0,0,192,224.48,24,24, 

152,88,48,224,192 

2610 REM <<<< ESCADA >»> 

2620 DATA 10,6.19,10,6,14,23,18,4,18,21 

,14,8,10,17,6,14,18,12,14 

2630 REM <<<< SALTO >>>> 

2640 DATA 5, -4, -3, -2, -1,0, 0,1, 2, 3, 4, 5 
2650 A*«INPUT*<1) sRETURN 



22 

Banho de Palavras 



Decifra-me ou eu te Molho! 

Este jogo é uma versão mais divertida, menos cruel, do conhecido jogo 
da forca. Se o jogador não consegue descobrir a palavra depois de um 
número razoável de tentativas, as próprias letras erradas o empurram pa- 
ra dentro d’água! 

As palavras podem ter até oito letras c não podem conter hifens. O 
programa original tem 60 palavras, mas não é difícil ampliar a lista ou 
trocar as palavras por outras. Quando o jogador acerta uma letra, ela 
aparece na posição que ocupa na palavra. Quando a letra está errada, 
o jogador é empurrado na direção da piscina. Quando a palavra é com- 
pletada a tempo, o jogador volta à posição inicial e o jogo começa de 
novo com outra palavra. 

Quando o jogador não consegue descobrir a palavra, ela não é mos- 
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trada. Como a s palavras sâo escolhidas ao acaso, a mesma palavra pode 
voltar a aparecer mais tarde. 


1000 REM <<<< BANHO DE PALAVRAS - ISSI 

>>>> 

10.10 MAXF I LES— 2 : OPEN "GRPsS" FOR OUTPUT 
AS i 

1020 GOSUB 1470 

1030 W- 1 NT ( RND ( —T I ME ) * 60 ) + 1 

1040 W$=DU(W) 

1050 GOSUB 1280 
1060 GOSUB 1680 
10/0 FLAG-0 

1080 IF TU*=WU THEN GOTO 1150 
1090 IF LEN(GU)=10 TI IEN GOTO 1120 
1100 GOTO 1060 
1110 REM <<<< PERDE >>>> 

1120 GOSUB 1520 

1130 GOTO 1250 

1140 REM <<<< GANHA >>>'> 

1150 nCT=8 

1160 IF GU=»" M VHEN GOTO 1230 
1170 FOR N=LEN(GU) TO 1 STEP -1 
1180 G*=RIGHTU(GU,N-1 ) 

1190 MU="S11L640 M +STR*(0CT)+"C" :PLAY MU 
1200 GOSUB 1810 SPRINT " " 

1210 FOR W=1 TO 250SNEXT W 
1220 NEXT N 

1230 PRESET (98,24) sPRINT 41," PARABÉNS 

i •• 

1240 PRESET (98,32) SPRINT #1," 

L , II 

1250 AU=INKEYU : II AU-='’" THEN 1250 
1260 DEEP s GOTO 1030 
1270 REM <<<< TELA »>> 

1280 SCREEN 2,0 ? 0:KEY OFF 
1290 COLOR 15,1,1: CLS 

1300 PRESET (74,0) SPRINT #1 , "BANHO DE P 
ALAVRAS" : COLOR 3 
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1310 A$*= " " : FOR N=1 TO O : A*=A$-*-CHRT ( &HCt< 

) fCHR$(&HCC) :NEXT N 

1320 PRESET (76, 10) SPRINT #1,A* 

1330 PRESET (24,56) S COLOR 13:0*»CHR* ( 1 ) 
+CHRt(&) ICC) SPRINT #1,0* 

1340 LINE ( 128 , 100 ) - ( 208 • 160 ) , 4 , BF 

1350 LINE < 120,8tí)-(128,i00) ,4 

1360 LINE ( 216 , BR ) — ( 208 , 100 ) , 4 

1370 LINE (0,65)~(104,65) ,14 

1300 LINE -STÊP( 20,20) ,14 

1390 COLOR 11: PRESET ( 10,80) SPRINT #1," 

PALAVRA: " 

1400 PRESET ( 40, 120) :!*="" :G*=" " 

1410 COLOR 5: FOR N=>1 TO LEN ( W* ) 

1420 PRINT #1 , | a T*=T$+" " 

1430 NE. X T N 

1440 PRESET (8, 152) : PRINT #1, "LETRA ?" 
1450 RETURN 

1460 REN <<« IMCIAL1ZACAÜ >>>> 

1470 RESTÜRE 1870 
1480 D IN D* (60) 

i490 FOR N“1 TO 60 : FíEAI) D*(N):NEXT N 
1500 RETURN 

1510 REM <<<< rCHIBUMÍ >>>> 

1520 FOR N-106 TO 152 STEP 2 
1530 COLOR 1: PRESET (N 2,N-50) 

1540 PRINT #1 ,CHR*( 1 ) 1CHR*(5<HCB) 

1550 COLOR 9: PRESET (N,N-48) 

1560 PRINT ttl ,CHR*( 1 ) K HRfcí&HCEO : 

1570 NEXT N 
1580 RESTÜRE 1660 

1590 FOR N«6 TO 13; READ AsSÜUND N,A:NEX 
T N 

1600 LINE -STEP (-8,0) ,4 

1610 FOR 1^1 TU 15: J“--RND(— TIME ) #20:K-R 
ND( -T IMF. >* 40-20 

1620 LINE -STEP ( K , J ) , 4 : L I NE -STEP(-K, J 

>,4 

1630 NEXT I 

•1640 FOR W = 1 TQ 500:NEXT Ui 
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‘1650 RETURN 

1660 DATA 15,135,16,16,16,0,16,0 
1670 RIEM <<<< ENTRADA DE DADOS >>>> 

1600 A*=INKEY*:1F THEN GOTO 1680 

1690 A*=CHR* ( ASC ( A* ) AND 223): PLAY "043 
1 1L16C" 

1700 1F A$< "A" OR A*> M Z" THEN GOTO 1680 

1710 FL-0: COLOR 9 

1720 FOR N- 1 Tü LEN(W*) 

1730 IF MID*(W*,N, 1 )=A* THEN PRESET ( ( N 
+4 ) *8 , 112) :FRINT #1 , A* : M I D* ( T* , N , 1 ) =A* : 

FL«1 

1740 NEXT N 

1750 1F FL—l THEN PLAY ,, GAB" s RETURN 
1760 FL— 0 : FOR M-^l TO LEN ( G* ) 

1770 1F MiD*(G*,M, 1 )-A* THEN FL=1 
1780 NEXT M 

1790 IF FL=i THEN RETURN 
1800 G*=A$*G* 

1810 PRESET (24,56) : COLOR lsPRINT #1,0$ 
1820 PRESET (24,56) : COLOR 13 
1830 IF LEN(G*)/2=INT(LEN(G*)/2) THEN M 
=&HCB ELSE MHkHCC 

1040 0*=G*+CHR* ( 1 ) +CHR* ( M ) : PRINT #1,0*; 
1850 RETURN 

1860 REM <<<< dados >>>> 

1870 DATA ZUMBI , REPTO, BEZERRO, LI BELO, AS 
CO , Gl IAPO , COLDRE , MURRO , H I ATO , JOVEM 
1880 DATA GLÍARTEL, MASTIM, 8 1 GÜRNA , HONEST 
0 , ROBALO , GRAV I OLA , F I CHA , JARRA , COLAPSO , P 
QSTE 

1890 DATA FEIXE, BILHAR, ANIMAL, SORTE, PIA 
DA , M 1 ASMA , BRUSCO , CARPA , HORTO , SUNGA 
1900 DATA BOLDO, POTRO, FELIZ , ISTMO, CRESP 
0 , PLANTA , ANZOL , TURVO , CR I VO , DENGUE 
1910 DATA GORDO, GRANEL, LERDO, ALGOZ ,TR IA 
GEM , GRAVAME , MAX I XE , CHUCHU , NABABO , OSTRA 
1920 DATA TRAVA, VEST AL, BESTIAL, REPOUSO, 
RA I NHA , ALT AR , MODESTO , UU I ABO , BOSQUE , LESM 
A 
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Aritmética 



Conias e Mais Contas 

Este programa pode gerar um número muiio grande de problemas de arit- 
mética. O próprio jogador seleciona o grau de dificuldade (fácil, medio, 
difícil) e a operação desejada (soma, subiraçào, multiplicação ou divisão). 
As perguntas e respostas aparecem em dm quadro-negro. 

No nível fácil, os problemas sào todos dc soma; o jogador tem que 
calcular o número total de “carinhas” que aparecem na tela. No nível 
médio de dificuldade, o jogador pode escolher uma das quatro operações 
e todas as respostas sào números inteiros. Essas contas não sào difíceis 
de fazer de cabeça. A maioria das pessoas só consegue resolver os proble- 
mas do nível mais difícil usando lápis c papel (ou, naturalmcnte. uma cal- 
culadora). 

Para responder às perguntas, é preciso entrar com o resultado e aper- 
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tar a tecla RETURN. Isto quer dizer que se você descobrir que entrou 
com o número errado, ainda pode corrigi-lo, contanto que ainda não te- 
nha apertado a tecla RF.TURN. O programa aceita até duas respostas er- 
radas antes de revelar o resultado correto. 

Depois de dez perguntas, o computador mostra na tela um “bole- 
tim” com o número de respostas corretas e a porcentagem dc acertos. 

1000 REM <<<< ARITMÉTICA - ISSI >»> 

1010 SCREEN 2,0,0: KEY OFF 
1020 MAXFILES=2:0PEN ,, GRP:S ,, FDR OUTPUT 
AS 1 

1030 GOSUD 1120 

1040 COLOR 3 : PRESET ( 75 , 60 ) : PRI NT #i,"l 

> FÁCIL'* 

1050 COLOR 9 : PRESET ( 75 , 80 ) : PRINT #1,"2 

> MEDIO" 

1060 COLOR 11: PRESET ( 75, 100) sPRINT #1, 
"3> DIFÍCIL" 

10/0 A*=INPUT*( 1 ) : A=ASC( A* ) 

1080 IF A<49 OR A>51 THEN GOTO 1070 
1090 PLAY "L64CDECDE" 

1100 LEV=A-48 

1110 GOTO 1820 

1 J 20 COLOR 15,4,1 :CLS 

1130 COLOR 9 : L 1 NE ( 120 , 40 ) - ( 1 40 , 180 ) 

1140 l INE ( 140, 180)-( 150, 180) :LINE( 150, 
180 )-( 130,30) 

1150 LINE ( 130, 30)-( 110,30) :LINE (110,3 
0)-(90, 180) 

1160 l INE ( c >0, 180 )-( 100, 180) :LINE (100, 
180)-( 120,40) 

1170 PAINT ( 120,35) ,9, 15 
1180 LINE <70,50)-( 170, 120) , 1 , BF 
1 1 90 CÜLÜR , 1 
1200 RETURN 

1210 REM <<<< ENTRADA DE DADOS »» 

1220 

1230 PRESET (80, 100) : COLOR 15 

1240 A$“INKEY$ : IF A*="" THEN GOTO 1240 

1250 PLAY "04L16D" 
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1260 A=ASC(A*):IF (A>47 AND A<58) OR 

45 THEN PRINT 41 , A$ ; : G*-6*+A* : GOTO 1240 

1270 IF A=13 THEN GOTO 1330 

1280 IF A<>8 OR G*= ,,M THEN GOTO 1240 

1290 LINE (70,90)-( 170, 120) , 1 , BF 

1300 GS-LEFT*(G*,LEN(G*) 1) 

1310 PRESET ( 75, 100) sPRINT 41, G* ; 

1320 GOTO 1240 

1330 IF VAL(G*)=ANS THEN CO=l ELSE CO-0 
1340 RETURN 

1350 REM <<<< RESPOSTA »>> 

1360 FOR G=1 TO 2 

1370 GOSUB 1220 

1380 IF CO^l THEN GOTO 1440 

1390 PLAY "L802CÜ1C" 

1400 LINE ( 70 , 90 ) - ( 170 , 120 ) , 1 , BF 
1410 NEXT G 

1420 PLAY "LI 602FE DFEDFE DC " 

1430 GOTO 1460 

1440 PLAY "L1604CDECDECDEA" 

1450 G=2:TT=TT+i 

1460 LINE ( 70 , 50 ) - ( 170 , 120 ) , 1 , BF : RETURN 
1470 REM <<<< TIPO DF OPERAÇSQ »» 

1480 LINE <70,50)-( 170, 120) , 1 , BF 

1490 COLOR 15 : PRESET (75,60) sPRINT #1," 

1> 

1500 COLOR 9 s PRESET ( 75, 75 ): PRINT #i,"2 

> 

1510 COLOR 3 : PRESET ( 75 , 90 ) : PR I NT 41,"3 

> ' X 1 " 

1520 COLOR 1 1 x PRESET ( 75 , 105 ) : PR I N 1 #1, 

n 4 v * y • n 

1530 A$=INPUT $ ( 1 ) : A-ASC ( ) -48 

1540 IF A<1 OR A>4 THEN PLAY "L801C M :G0 

TO 1530 

1550 DEF FN SUM-A+B : S*- u +" 

1560 IF A=2 THEN DEF FN SUM=*A-B : S*=“ 

1570 IF A=3 THEN DEK 1 N SUM>=A#B : SS= " x " 

1580 IF A=4 THEN DEF FN SÜM=^A/B : S*=" / " : 

D1V=1 
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1590 RETURN 

1600 REM <<<< INICIALIZAÇAO »>> 

1610 LIM=8:DIV~0 

1620 IF LEV«2 THEN LIM=12: GOSUB 1480 
1630 IF LEV=3 THEN LIM=25: GOSUB 1480 
1640 LI NE (70,50)-( 170, 120) , 1 , BF 
1650 TT=W: RETURN 
1660 REM <<<< NUMEROS >>>> 

1670 A=INF(RND(-TIME)*LIM)+1 
1680 B«INT(RND(l)tLIh)+l 
1690 IF DIV»1 THEN A=A*B 
3700 LINE ( 70 , 50 ) - ( 170 , 120 ) , 1 , BF 
1710 COLOR 15: PRESET (72,62) 

1720 IF LEV=1 THEN GOTO 1760 
1730 PRINT 41,A;S*;B 
1740 ANS=FN SUM 
1750 RETURN 

^,1760 COLOR 1 0 : F OR N=1 TO ArPRINT 41,CHR 
* ( 1 ) +CHR$ ( 66 ) : : NEXT N : PRINT #1," + " 

1770 PRESET (72,70) 

^1780 FOR N=1 TO D SPRINT #1 , CHR$ ( 1 ) +CHR$ 
( 65 ) ; : NEXT N : PRINT #1," =" 

1790 ANS=*A+B 
1800 RETURN 

1810 REM <<<< LOOP PRINCIPAL >>>> 

1820 GOSUB 1610 
1830 FOR P=1 TO 10 
1840 GOSUB 1670: GOSUB 1360 
1850 NEXT P 

1860 LINE ( 70 , 50 ) - ( 170 , 120 ) , 1 , BF 

1870 COLOR 15 

1880 PRESET (75,58) 

1890 PRINT #1 , "ACERTOU" ;TT 
1900 PRESET (75,82) 

1910 PRINT 41 , "OU" ; TT*100/10 j "7." 

1920 PRESET (75,106) 

1930 PRINT 41 , "APERTE *C‘" 

1940 Af.= INF'UrS( 1 ) : IF A*<>"C" AND A*<>"c 
" THEN GOTO 1940 



Aritmética 189 


1950 LINE ( 70 , 50 ) - ( 170 , 120 ) , 1 , L<F 
1960 GOTO 1040 
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Hoje, o Brasil 



Amanhã, o Mundo! 

Ente c um teste de geografia baseado no mapa do Brasil. O jogo consiste 
em identificar corretamente os estados e capitais indicados no mapa. O 
jogador pode escolher se o teste vai versar sobre cidades, estados ou ambos. 

O programa pode ser usado como modelo para desenvolver um teste 
mais completo a respeito do Brasil ou, como a legenda acima sugere, um 
teste a respeito do mundo inteiro! Na verdade, a pesquisa dos dados a 
serem incluídos na listagem pode facilmente tornar-se mais educativa que 
o próprio programa... 

J.0Q0 RE. ti <<;<< HOJE 0 BRASIL >>>> 

i0!0 MAXF lLEf3*2:QPEN "GRPíS" FOR OUTPUT 

AS 1 
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1 070 CDL OFV 15,1,1: SC RE IN 1,0,0a KE Y QFF 
1 030 A$=* " ABCDEFGH I JKL MNOPQRSTUVWX Y Z " 
1040 SC=0:LOCATE 8,0:PRINT "Hoje o 
il " 

1050 B$=" ABCDEFGH I JKLMNOPQRSTUVWXYZ " 
1060 LOCATE 7,2:PR1NT "Amanhã o mundo'" 
1070 COLOR 7 

1000 LUCATE 1,5: PR I NT "Faca sua escolha 


1090 LOCATE 2 , 7 : PR I NT "1. .. Identificar 
o estado" 

1100 LOCATE 2, 9 SPRINT "2. .. Identificar 
a capital" 

1110 LOCATE 2,11: PRI NT "3 . . . I den ti f icar 
o estado e" 

1120 LOCATE 6,13: PR I NT "a capital" 

1130 A$— INKEY* : IF A*<"1" OR A*>"3" THEN 
GOTO 1130 
1140 0P-VAL(A$) 

1150 GOSUB 1980 
1160 RESTORE 2690 
li* 7 © IF ÜP=3 THEN GOTO 1600 
1100 REM <<« IDENTIFICAR CARI TAL/ ESTAD 
0 »» 

1190 FOR C=1 TO 26 

1200 M-1NT(RND< I IMF )*LEN(8S) )+i 

1210 N-ASC ( lil D4» ( B$ , M , 1 ) ) -64 

1220 B*=LEFT$(D$,M 1 ) +RIGHT* ( BS ,LEN ( BS ) 

1230 FOR L=1 TO N 
1240 READ N$,X,Y,C0* 
i2 c -0 NEXT L 
1260 RESTORE 2690 

1270 PSET ( INT(2.8*X) , INT(3.5*Y) ) 

1200 PUT SPRITE i, ( INT(2.8*X+2) , IIMT(3.5 
# Y~ 10 ) ) ,9,1 
1290 COLOR 7 

1300 IF OP^l THEN IF LEN(N*)<14 THEN PR 
ESET (155,32) íPRINT 41, "A capital é":PR 
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ESET ( 155,48) sPRINT 41, N$ ELSE PRESET ( 
155,16) SPRINT 41, "A capital " : PRESET (1 

55.32) : PR INT 41 , LEFT S ( NS , 4 ) : PRESET (155 
,48) SPRINT #1 , R I GHT $ ( N$ , LEN ( NS ) —4 ) 

1310 IF OP-2 THEN IF LEN(C0S)<15 THEN P 
RESET (148,32) SPRINT 41, "0 estado è" íPR 
ESET ( 148,48) :PRINT 41, COS ELSE PRESET 

( 148, 16) SPRINT 41, "O estado " : PRESET (1 

48.32) SPRINT 41 , LEFTS ( COS , 14 ): PRESET (1 
48,48) SPRINT 41 , RIGHTS ( COS , LEN ( COS ) -14 ) 
1320 TR=3 

J330 PRESET (155,64) : IF OP=l THEN PRINT 
41 , "O estado é” ELSE PRINT 41, "A capit 
a 1 é" 

1340 GOSUD 2270: IF OP=l THEN CS=IS ELSE 
CIS=IS 

1350 IF OP=l AND CS=COS THEN GOTO 1460 
1360 IF OP=2 AND CIS-N* THEN GOTO 1460 
1370 TR=TR-1 : PRESET ( 164 , 120 ) s COLOR 9sP 
RINT #1, "ERRADO! " 

1380 IF TR=2 THEN PRESET ( 164 , 128 ) s PR I N 
1 41, "RESTAM 2" : PRESET ( 164 , 136 ): PRINT 
41 , "TENTATIVAS" 

1390 IF TR=1 THEN PRESET ( 164 , 128 ) s PRIN 
T 41, "RESTA t " : PRESET ( 164 , 136 ): PRINT 4 
1 , "TENTATIVA" 

1400 COLOR 7 

1410 IF TR=0 THEN GOTO 2180 

1420 PLAY "EDC" : FOR W=1 TO 500:NEXT W 

1430 LINE ( 155 , 64 ) — ( 255 , 160 ) , 1 , BF 

1440 IF TR< 1 THEN GOTO 2180 

1450 GOTO 1330 

1460 GOSUB 2110 

14/0 PRESET ( 169,96) : COLOR 9 :PRINT 41," 
CERTO ! " 

1480 PLAY "EFG" : FOR W=1 TO 500:NEXT W 
1490 SC=>SC+TR 

1500 PSET ( INT(2.B*X) , INT(3.5*Y) ) ,1 :GOS 
UB 2110 
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1510 NEXT C 

1520 SCREEN 1,0,0 

1530 COLOR 15,1,1 :CLS 

1540 LOCATE 5,5:PRINT "Você fe 2 ";SC;"pa 
ntos" 

1550 LOCATE 0,10:PRINT "Aporte * J* para 
jogar de novo" 

1560 A*=INPUT*( 1 ) : A*=CHR*( ASC ( At ) AND 2 
23) 

1570 IF A*<>"J" THEN GOTO 1560 
1500 GOTO 1020 

1590 REM <<<< IDENTIFICAR CAPITAL f EST 
ADO >»> 

1600 FOR C=1 TO 26 

1610 M= I NT ( RND ( -T I ME ) #LEN ( BS ) )+l 

1620 N=ASC ( M I \)% ( B$ , M , 1 ) ) -64 

1630 B*=LEFT* ( B* . M-l ) +R IGHTS ( B* , LEN ( B* ) 

-M) 

1640 FOR L=1 TO N 

1650 READ N$,X,Y,C*: COLOR 7 

1660 NEXT L 

1670 RESTORE 2690 

1680 PSET ( INT(2.8*X) , INT(3.5#Y) ) 

1690 PUT SPRITE 1 , ( INT ( 2.8*X+2 ) , INT ( 3 . 5 
*Y-10) ) ,9,1 

1700 PRESET ( 155,32) SPRINT #1,"A capita 
1 ê" 

1710 TR=3 

1720 GOSUB 2270:CI*=I* 

1730 IF CI*=N* THEN GOSUB 2110:PRESET ( 
164,96) : COLOR 9 sPRINT #1, "CERTO ! " s GOSU 
D 2130 : SC=SC+TR : GOSUB 21 10; GOTO 1820 
1/40 TR=TR-1 : PRESET ( 164 , 120 ): COLOR 6,1 
sPRINT ttl , "ERRADO í " 

1750 IF TR=2 THEN PRESET ( 164 , 128 ) : PRI N 
T #1, "RESTAM 2" ; PRESET ( 164 , 136 ) ; PRINT 
#1, "TENTATIVAS" 

1760 IF TR-i THEN PRESET ( 1 64 , 128 ) ; PR I N 
T #1 , "RESTA 1 " : PRESET ( 164 . 136 ): PRINT # 
1 , "TENTATIVA" 
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1770 GOSUB 2150: PRESET (164,32) 

1780 LINE ( 155,64)— (255, 160) , l ,BF 
1790 IF TRO0 THEN GOTO 1720 
1800 GOSUB 2110: PRESET ( 148 , 24 ) : PR INT M 
1 , "A capita 1 

1810 PRESET (148,40) : IF LEN(N*)<13 THEN 
PR INT Ml,N* ELSF PR INT # 1 , LEFTS ( N$> , 13 ) 
: PRESET ( 1 48, 52) :PRlN7 # 1 , R I GHT $ ( N$ , LEN 
<N*)-13) 

1820 COLOR 7 : PRESET ( 148 , 64 ) : PRINT #1," 
O estado è" 

1830 TR-3 

1840 GOSUB 2270:CO$=I* 

1850 IF CO*=C* THEN GOSUB 2110:PRESET ( 
164,80) : COLOR 9: PR INT #1," CERTO ! " :GOSU 
B 2130 :SC=SC+TR: GOSUB 21 10: GOTO 1950 
1860 TR-TR-l 

1870 PRESET ( 164, 120) : COLOR 6,1: PR INT 4 
t , "ERRADO! " 

1880 IF TR=2 THEN PRESET ( 164 , 128 ) : PRIN 
T ttl , "RESTAM 2" .-PRESET ( 164 , 136 ) : PR INT 
Ml , "TENTATIVAS" 

1890 IF TR=1 THEN PRESET ( 164 , 128 ) í PR I N 
T Ml, "RESTA 1 " : PRESET ( 164 , 136) :PRINT tt 
1 , " IÉNTAT IVA" 

1900 GOSUB 2150 

1910 LINE ( 145 , 72 ) — ( 255, 160 ) , 1 , BF 
1920 IF TR< 0 THEN GOTO 1840 
1930 GOSUB 21 10: PRESET ( 1 48 , 64 ) : PRI N T # 
l."0 estado ó" 

1940 PRESET ( 148,80) : IF LEN(C$)<13 THEN 
PRINT #1,C* ELSE PRINT #1 , LEFT* ( C$ , 13 ) 

: I 'RL St I ( 148,96) : PRIN I #1 ,R1GH I % ( C$ ,LEN 

( C* ) 1 3 ) 

1950 FOR FF- 1 TO 1000:NEXT FFíPSET (INT 

( 2 . 8# X ) , INT(3.5*Y) ) , 1 .-GOSUB 2110 

1 960 NEXT C : GOTO 1520 

1970 REM <«< DESENHAR O MAPA >>>> 

1980 COLOR 5,1,1: SCREEN 2,0,0 
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199W RESTORE 2960 s S*= FOR N=0 TO 7: RE 
AD A:S*=S*+CHR$( A) :NEXT N : SPR I TE* ( 1 ) 
2000 RESTORE 
2010 PLAY "L1RRRR" 

2020 PLAY "L4CL5FL8EL7FL8GI 6AL8GL7AL8A-* 
L2B05L 10CO4L4F " , "V603R4L1FF" , "03R4AR3U4 
ÇR303AR302F" 

2030 READ X,Y: Y=INT(3.5#Y) : X=5+ I NT ( 2 . 8* 
X ) : PSET ( X , Y ) 

2040 FOR N=1 TO 162 

20&0 READ X ,Y: Y=INF (3. 5*Y) : X=5+INT(2.8* 
X ) :L$="M"+STR$ ( X )+" , "+STR$( Y ) : DRAW L * 
2060 NEXT N 

20/0 READ X , Y : Y= I NT ( 3 . 5* Y ) : X— 5+ I NT (2.8# 
X ) : PSET (X,Y) 

2000 FOR N- 1 TO 6 

2090 READ X,Y:Y*INT(3.5*Y) : X«5+I NT ( 2 . 8# 
X ) :L$="M" fSTR*< X )+*' , " +STR$ ( Y ) : DRAW L* 
2100 NEXT N 

2110 LINE ( 148 , 0 ) ~ ( 255 , 191 ) , 1 , BF 
2120 RETURN 

2130 PLAY "GGL8CDEFGG" : GOSUB 2160 

2140 RETURN 

2150 PLAY "L8CEGFEDC" 

2160 FOR T=1 TO 800: NEXT T 

2170 REI URN 

2180 GOSUB 2110 

2190 PRESET ( 148 t 24 ): COLOR 9 

2200 PRINT #1 , "A capital é" 

2210 PRESET ( 148, 40) :PRINT 41, N* 

2220 PRESET ( 148, 56) sPRINT 41, "O estado 
ê" 

2230 PRESET ( 148,72) : IF LEN(C0*)<13 THE 
N PRINT 41, COt ELSE PRINT 41 , LEFTt ( CU$ , 
13) : PRESET ( 148, 88 ): PRINT 41 , R I GMT* ( COt 
, LEN(COt) —13) 

2240 FOR W=1 TO 800: NEXT W 
2250 GOSUB 2110 
2260 GOTO 1500 
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2270 COLOR 5 

2200 I í=" " i PRESET ( 148 , 80 ) : PRI NT #1,”>" 
2290 AÍ=INKEYÍ:IF Aí^'" THEN GOTO 2290 
2300 BEEPíIF Aí=CHRí ( 13 ) THEN RETURN 
2310 IF A«>"Z" THEN Aí =CHRÍ ( ASC ( Aí ) -32 ) 
2320 IF ASC (A*) =100 OR ASC (A*) =128 THEN 
Aí=*'A" 


2330 IF ASC (Aí) =144 OR ASC (Aí) =145 THEN 
AÍ="A M 

2340 IF ASC (Aí) =105 OR ASC (Aí) =129 THEN 
AÍ="I " 

2350 IF ASC ( Aí ) =1 10 OR ASC(AÍ)=115 THEN 
Aí="0*’ 


2360 IF ASC (Aí) =106 OR ASC (Aí) =130 THEN 
AÍ="0 M 


2370 IF ASC (Aí) =98 OR ASC (Aí) =112 THEN 
Aí ="E " 

2300 IF ASC (Aí) =99 OR ASC (Aí) =108 THEN 
Aí = " A " 


2390 Xí=" " : IF LEN(IÍ)<12 THEN WÍ=IÍ ELS 
E Wí=LEFTí ( lí , 11 ) : Xí=RIGHTí ( lí ,LEN( lí )- 
11 ) 

2400 COLOR 1 : PRESET ( 164,80) :PRINT #1,W 
í 


2410 IF Xí<>"" THEN PRESET (164,96) :PRI 
NT #1,XÍ 

2420 IF Aí=CHRí ( 8 ) AND IÍ> MM THEN IÍ=LE 

FTÍ ( I í , LEN ( I í ) - 1 ) : GOTO 2450 

2430 IF Aí= " " OR Aí = " . " THEN GOTO 2440 

2440 Ií=I í+Aí 

2450 COLOR 5 

2460 Xí=" " : IF LEN(IÍ)<12 THEN Wí=lí ELS 
E: WÍ=LEFTÍ( lí ,11) : Xí=RIGHTí ( IÍ,LEN( lí)- 
11 ) 

2470 PRESET ( 164 ,80) íPRINT #l,Wí 

2480 IF XÍO"" THEN PRESET ( 164,96) íPRI 

NT #l,Xí 

2490 GOTO 2290 

2500 REM <<<< MAPA DO BRASIL >>>> 



Ho/e. o Brasil 197 


2510 DATA 7,8,7,8,8,8,9,7,10,8,11,9,12, 
8,13,7.75,14,7.5,13,7 

2520 DATA 12.5,6.75,12,5,13,5.25,14,5,1 

5,4,16,4,17,3,18,4,18,5,18,6 

2530 DATA 18,7,19,7,20,7,21,7,22,6,23,6 

,24,6,25,6,26,6,26.75,5 

2540 DATA 27.75,3.5,28,4,28.25,5.5,29,5 
.5,29.5,7,28.5,8,28.5,9,29,10,30,11,31, 
11,32,10 

2550 DATA 33,9,34,10,35,10,36,10.75,37, 
11,38,11.25,39,11.5,40,1 1 .75,41,12,42,1 
2.25 

2560 DATA 43,12.5,44,12.75,45,13,46,14, 

47,14.25,48.25,14.75,48.75,15.25,49,15. 

75,49.5,16,49.75,17,49.25,18 

2570 DATA 49,19,48,20,47,21,46,22,46,23 

,45,24,45,25,44,26,44,27,44,28 

2580 DATA 44,29,44,30,43,31,43,32,42,33 

,42,34,42,35,41 ,35,41,36,40,36 

2590 DATA 39,36,38,37,37,37.36,38.35,38 

,34,39,34,40,33,41, 33 ,42,33,43 

2600 DATA 32,44,31,45,30,46,30,47,29,48 

,29,49,28,50,28,49, 27 , 48 , 26 , 47 

2610 DATA 25,46,24,46,24,45,25,44,26,43 

,27,42,27,41,27,40,26,39,25, 38 

2620 DATA 25,37,24,36,23,36,22,36,22,35 

,22,34,22,33,22,32,22,31,21,30 

2630 DATA 21,29,20,29,19,29,18,29,18,28 

, 18 , 27 , 1 7 , 26 , 1 6 , 26 , 1 5 , 26 , 1 4 , 25 

2640 DATA 13,25,13,24.13,23,13,22,12,22 

, 11 ,23,10,24,9,24,8,24,7,24 

2650 DATA 6,24,6,23,6,22,5,23,4,23,3,22 

,2,21,2,20,2,19,3,18 

2660 DATA 4,17,5,16,6,16.5,6.5,15,6.75, 

14.7.13.7.12.8.11.8.10.7.9.7.8 
2670 REM <<<< ILHA DE MANAJO >>>> 

2680 DATA 29.5,8,31.75,8.5,32,9,31,10,2 

9.5.9.5.29.5.8.25.29.5.8 
2690 <<<< ESTADOS >>>> 
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2700 DATA PORTO ALEGRE , 30 . 8 , 46 . 1 , R I 0 GR 
ANDE DO SUL 

2710 DATA FLOR I ANOPOL IS, 33 . 6 , 42 . 9 , SANT A 
CATARINA 

2720 DATA CUR 1 T I BA , 32 . 6 , 39 . 9 , PARANA 
2730 DATA SAO PAULO , 35 . 5 , 37 . 5 , SAO PAULO 
2740 DATA RIO DE J ANE IRO , 39 , 36 . 5 , R I O DE 
JANEIRO 

2750 DATA BELO HORI ZONTE ,38 . 5, 33. 5, MI NA 
S GERAIS 

2760 DATA VITORI A , 42 . 3 , 34 , ESP IRI TO SANT 
O 

2770 DATA SALVADOR , 45 . 5 , 24 . 9 , BAHIA 
2780 DATA ARACAJU , 46 . 5 , 22 . 5 , SERG IPE 
2790 DATA MACE 1 0 , 47 . 6 , 20 . 9 , Al AGOAS 
2800 DATA RECIFE, 49. 5, 18. 7, PERNAMBUCO 
2810 DATA JOAO PESSOA , 50 , 17 , PARA I BA 
2820 DATA NATAL , 49 . 5 , 1 5 . 5 , R I 0 GRANDE DO 
MORTE 

2030 DATA FORTALEZA, 44. 6, 13. 2, CEARA 
2840 DATA SAÜ LU IS , 38 , 1 2 , MARANHSO 
2850 DATA BELEM , 32 . 6 , 12 , PARA 
2860 DATA MACAPA, 29 , 8 . 9 , AMAPA 
2070 DATA BOA VI STA , 16 . 5 , 6 . 5 , RORAIMA 
2880 DATA MANAUS , 18 . 5 , 13 . 5 , AMAZONAS 
2090 DATA RIO BRANCO , 9 . 4 , 23 , ACRE 
2900 DATA PORTO VEL HO , 1 4 , 21 . 5 , RONDONI A 
2910 DATA CU I ABA, 24. 5, 28. 5, MATO GROSSO 
2920 DATA CAMPO GRANDE , 26 . 5 , 34 . 5 , MATO G 
ROSSO DO SUL 

2930 DATA GOI ANI A , 32 . 5 , 29 . 5 , GO I AS 

2940 DATA BRASÍLIA, 34 , 28. 5, DISTRITO FED 

ERAL 

2950 DATA TERESINA , 39 . 9 , 15 . 1 , P I AU I 

2960 DATA Í<H01 , *<H02 , &H84 , *<H88 , í<HD0 , ?<HE0 
, &HF0 , &HFC 
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Gerador de Caracteres 



Crie Seu Próprio Conjunto de Caracteres Gráficos 

Criar caracteres pode ser tào divertido quanto jogar um jogo. liste pro- 
grama utilitário permite redefinir os caracteres do\lSX e combiná-los para 
gerar f iguras mais complexas. 

O programa mostra os caracteres originais c oferece ao usuário a opor- 
tunidade de adaptá-los, permutá-los ou criar caracteres totalmente no- 
vos. As definições dos caracteres (iodem ser copiadas e usadas nos mais 
diversos tipos de programas. Conjuntos completos de caracteres podem 
ser salvos em fita para uso futuro. 

Embora alguns programas deste livro utilizem caracteres especiais, 
outros usam apenas os caracteres originais. A apresentação dos jogos do 
segundo tipo pode ser melhorada com o auxílio do gerador de caracteres. 

Como o programa oferece um número rclativamente grande de op- 


200 Livro de jogos em MSX 


ções, pode ser que você leve um certo tempo para aprender a usá-lo da 
forma mais eficiente. Não deixe de consultar a lista de instruções abaixo 
sempre que tiver alguma dúvida. 


Uso do Cierador de Caracteres 

O programa começa por mostrar o primeiro caractere escolhido, dentro 
de um quadriculado de 8 por 8. O usuário pode então escolher uma das 
opções abaixo, apertando a tecla com a letra correspondente à inicial da 
instrução: 

Apagar: Apaga o caractere corrente. 

Ler. Pede o número de um caractere. Depois que o usuário entra com 
o último algarismo, o caractere escolhido aparece dentro do quadricula- 
do e pode ser editado, deslocado etc. 

Editar. Coloca um cursor intermitente no canto superior esquerdo do qua- 
driculado. O cursor pode ser movimentado com o auxílio do joystick ou 
das teclas de controle do cursor. O botão de tiro ou a barra de espaço 
serve para mudar um quadrado de “cheio” para “vazio” ou vice-versa. 
Para dar a figura por terminada, aperte a tecla RETURN. Em seguida, 
escolha a que número de código será associado o caractere que você aca- 
bou de criar. 

Números: Nesta opção, o usuário escolhe o número de código a que o 
caractere será associado e depois entra com oito valores, correspondentes 
aos números binários que representam as oito linhas do quadriculado, co- 
meçando pela linha de cima. Desta forma, o novo caractere é gerado di- 
rctamente a partir de dados numéricos. Para passar para outra opção, 
aperte a tecla RETURN. 

Refletir. O computador pede o número de um caractere e depois pergun- 
ta se ele deve ser refletido em um eixo vertical (trocar direita por esquer- 
da) ou horizontal (virar de cabeça para baixo). O resultado aparece no 
quadriculado. Para armazenar o novo caractere, basta escolher a opção 
Editar, apertar a tecla RETURN c entrar com o número de código esco- 
lhido. A mesma observação vale para as duas opções seguintes. 

Vertical (Deslocamento): O computador pergunta se o deslocamento é para 
cima ou para baixo e desloca a figura uma linha para cima ou para baixo. 
A linha que desaparece na parte de cima toma a aparecer na parte de bai- 
xo e vice-versa. 
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Horizontal (Deslocamento): Como no caso do deslocamento vertical, ex- 
ceto pelo fato de que o computador pergunta sc o deslocamento deve ser 
para a direita ou para a esquerda. 

Trocar. O computador pede dois números de código e troca as definições 
dos caracteres correspondentes. 

Montar. Remove o quadriculado c cria um campo dc 14 x 10 caracteres 
no qual o usuário pode observar o resultado de qualquer combinação de 
caracteres. Depois de fornecer o número de código de um caractere, o 
usuário pode deslocar esse caractere para qualquer posição dentro do cam- 
po, usando o joystick ou as teclas dc controle do cursor. Para “fixar” 
um caractere na sua posição corrente, basta apertar o botão de tiro ou 
a barra dc espaço. Para entrar com um novo caractere, aperte RF.TIJRN 
e, sem soltar a tecla, entre com o número de código do caractere deseja- 
do. Para sair desta opção, aperte RETURN. 

Salvar. O computador pergunta com que nome o arquivo dc caracteres 
deve ser salvo. Depois de entrar com o nome, aperte as teclas PLAY e 
RECORD do gravador e a tecla RETURN do computador. 

Carregar : O computador pergunta qual o nome do arquivo a ser carrega- 
do. Se o usuário se limita a apertar a tecla RETURN, o computador car- 
rega o primeiro arquivo que encontrar. 

Nota: Só use as opções “Salvar” e “Carregar” se você estiver trabalhan- 
do com fita cassete. 

1000 REM <<<< GERADOR DE CARACTERES - A 
NDY/BOOTSY >>>> 

1010 SCREEN 1,0,0: COLOR 15,4,4 
1020 OLE AR 4000 , &HEI-I I :W1DTH .51 
1030 DIM C$ ( 8 ) : DEFUSR“?<HF000 : DEFUSR1=34 
2 

1040 ON ERROR OÜ TU 34/0 
1050 GOSUB 3500 

1060 FOR A=1 TO 8 : C$ ( A ) M 00000000 " : NEXT 
A 

1070 YP— 8 
1080 GOSUD 2520 
1090 GOSUB 2760 

1100 ON YP GOSUB 2160,2470,1160,1730,34 

20* 1930 , 3100 , 2310 , 3310 , 1 500 , 3020 

1110 LOCATE 18, 19 sPRINT SlfilJMí i* < 1 0 , " " ) 
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1120 LOCATE 18 , 20 : PR I NT STR I NGí ( 10 , " " ) 
1130 GOTO 1090 
11 <10 END 

1150 REM -:<<< EDITAR >>>> 

1160 XO2W:YO0 

1170 LOCATE XC, YCsPRINT CHR* ( 247 ) : X=XC- 
19 

1180 FOR T=1 TO 50 : NE X T T 

1190 LOCATE XC, YCsPRINT CHR* (32) 

1200 A-STICK(0) OR STICK(l) 

1210 IF A=1 AND YC>0 THEN 1350 
1220 IF A-3 AND XC<27 THEN 1390 
1230 IF A-5 AND YC<7 THEN 1430 
1240 IF A=7 AND XO20 THEN 1470 
1250 AA~STR IG ( 0 ) OR STRIG(1):IF AA THEN 
1510 

1260 A*=1NKEY*:1F A*OCHR*<13) THEN 117 
0 

1270 LOCATE XC,YC:IF M I D* ( C* ( YC+1 ) , X , 1 ) 
a "t" THEN PR I NT CHR*(248) ELSE PRIMT CH 
R* ( 246 ) 

1230 GOSUB 2900 

1290 FOR A=1 TO 8 

1300 NU^VAL ( " $<B " +C $ ( A ) ) 

1310 VPOKE CH*8+ ( A- 1 ) , NU 
1320 NEXT 

1330 LOCATE 18,19:PRINT STRING* ( 10 , " " ) 

: LOCATE 18, 20 sPRINT STRING*( 10, " " ) s LOC 
ATE 18,21: PR INI S TR I NG* ( 10 , " " ) : RETURN 
1340 END 

1350 G*=MID*(C*(YC+1) ,X,1) 

1360 LOCATE XC,YC 

1370 IF G*="1 M THEN PRINT CHR*(248) ELS 
E PRINT CHR* ( 246 ) 

1380 YC“YC~1 sGOTO 1170 
1390 Q$=mD$(C1í(YC>l),X,i) 

1400 LOCATE XC,YC 

1410 IF Q*“ " 1 " THEN PRINT CHR* (248) ELS 
E PRINT CHR* ( 246 ) 
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1420 XC=XCH:GQTO 1170 
1430 a*=MID*(C$( YC+1 ) , X , 1 ) 

1440 LOCATE XC,YC 

1450 IF Q$— " 1 " THEN PRINT CHR*(248) ELS 
E PRINT CHR*<246) 

1460 YC=YC+1 :GOTO 1170 
1470 G*=41ID*íC*(Y01> ,X,1) 

1480 LOCATE XC,YC 

1490 IF Q$»=" 1 " THEN PRINT CHR*(248) ELS 
E PRINT CHR$ ( 246 ) 

1500 XC=XC- lsGÜTO 1170 

1510 X=XC-19:Q*^MID$(C*< YC+1 ) , X , 1 ) 

1520 LOCATE XC,YC 

1530 IF Q$= " 1 " THEN PRINT CHR* ( 246 ) : 
LEFT $ ( C'4» (YC + 1 ) , X-i ) + ,, 0"+RIGHT*(CS ( YC + 1 ) 
, (8-X) ) 

1540 IF Q$="0“ THEN PRINT CHR* ( 247 ) : W*= 
LEFT*(C*í YC+i ) , (X-l) ) 1 "+RIGHT $ ( C$ ( YC+ 

1) , <8-X) ) 

1550 C$ ( YC+1 ) =W$ 

1560 GOTO 1170 

1570 REM <<<< DESLOCAMENTO VERTICAL >>> 

> 

1580 LOCATE 18,19:PRINT "Subir/Descer" : 
LOCATE 19, 20 SPRINT "S/D" 

1590 A*=INKEY*s IF A*="" THEN 1590 ELSE 
IF A*<>"S" AND A*<>"s" AND A$<>"D" AND 
A$<>"d" THEN 1590 

1600 LOCATE 18,19: PR I NT STRING*(12," “ ) 
sLOCATE 18 , 20 : PRINT STRING* ( 10 , " " ) 

1610 IF A*="S" OR AS-"s" THEN 1670 
1620 D*=C1> ( 8 ) : FOR A=7 TO 1 STEP -1 
1630 C*( A+l )=CS ( A) rNEXT A 
1640 C*(1)*D* 

1650 GOSUB 2830 
1660 RETURN 

1670 D*=C*(l)*FOR A=2 TO 8 
1680 Cl» ( A-i ) =C$( A ) : NEXT A 
1690 C*(8)=D* 
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1700 GOSUB 2830 
1710 RETURN 

1720 REM <<<< DESLOCAMENTO HORIZONTAL > 

»> 

1730 LOCATE 18,19:PRINT "Esq./Dir." 

1740 LOCATE 19,20:PRINT " (E/D)" 

1750 A*=INKEY*:IF A*= M " THEN 1750 
1760 IF A*<>"D" AND A*<>"d M AND AXVE" 
AND A*<>"e" THEN 1750 
1770 LOCATE 18 !I 19:PRINT STR I NG$ (10," " ) 
1780 LOCATL 18,20:PRINT STR I NG* ( 10 , " ") 
1790 IF A*="D" OR A»* ,, d M THEN 1860 
1800 FOR A=1 TO 8 
1810 D*=LEFT*(C* (A) , 1 ) 

1820 E*=R I GHT* ( C* ( A ) , 7 ) 

1830 C<MA)^E*+D* 

1840 NEXT A 

1850 GOSUB 2830: RETURN 
1860 FOR A=1 TO 8 
1870 Dí=RIGHT*(C*( A) , 1 ) 

1880 E*=LEFT*(C*( A) ,7) 

1890 C*(A)=D*+E* 

1900 NEXT A 

1910 GOSUB 2830: RETURN 
1920 REM <<<< REFLETIR >>>> 

1930 GOSUB 2900 
1940 GOSUB 2320 

1950 LOCATE 18,19:PRINT n hori 2 /vert" 
1960 LOCATE 18,20:PRINT M H/V?" ; 

1970 CH-USR1 (0) : CHS" I NPUT* ( 1 ) 

1980 IF CH*="v" OR CH*-"V" THEN 2070 
1990 IF CH$<>" h" AND CH*<>"H M THEN 1970 
2000 REM <<<< REFLETIR EM UM EIXO VERTI 
CAL >>>> 

2010 D*=C* (8) : C$ ( 8 ) =C$ ( 1 ) :C*( 1 )=D* 

2020 D*=C* ( 7 ) : C* ( 7 ) »C* ( 2 ) : C* < 2 ) =D* 

2030 D$=C* (6) :C$(6) =C* ( 3 ) : C* ( 3 ) =D* 

2040 DS=C* ( 5 ) : CS ( 5 ) =CS ( 4 ) : C* ( 4 ) =D$ 

2050 GOSUB 2830: RETURN 



Gerador de Caracteres 205 


2060 REM <<<< REFLETIR EM UM EIXQ HORIZ 
ONTAL >>>> 

2070 FOR A=*l TO 8 

2080 D$=R 1 GHT$ ( C$ ( A ) , i ) i E*=LEFT* ( CS ( A ) , 
1) 

2090 F*=MID*(CS(A) ,2,1) s GS=M I D* ( C$ ( A ) ,7 

,i> 

2100 H*=MID*(C$(A) ,3,1) : I $=M I D$ ( CS ( A ) ,6 
,1) 

2110 J*=MID*(C*(A) ,4,1) :K*»MID*(C*(A) ,5 
,1) 

2120 C% ( A ) =D*+G*+ 1 *+K*+J *+HS+F$+E* 

2130 NEXT A 

2140 GOSUB 2830 : RETURN 
2150 REM <<<< MONTAR >>>> 

2160 FOR Y=0 TO 7:L0CATE 19,Y:PRINT STR 
ING*( 10, " " ) : NEXT Y 
2170 XX=19:YY»0 

2180 GOSUB 2900 s IF CH=13 THEN GOSUB 247 
0: RETURN 

2190 PUT SPRITE 0 , ( X X *8+8 , YY*8 ) , 15 , 0 
2200 A=*ST ICK ( 0 ) OR STICK(l) 

2210 Y=STR I G ( 0 ) OR STRIG(l) 

2220 CH*-INKEY$: IF CH$=CHR*(13) THEN 22 
90 

2230 IF A-l THEN YY=YY- ( 1 AND YY>0) 

2240 IF A-3 THEN XX=XX+(1 AND XX<27) 

2250 IF A- 5 THEN YY»YY+(1 AND YY<7) 

2260 IF A-7 THEN XX=XX-(i AND XX>19) 

2270 IF Y THEN LOCATE XX,YY:PRINT CHR$ ( 
CH) 

2280 GOTO 2190 

2290 PUT SPRITE 0 ,( 0 , 208 ), 0 , 0 : GOTO 2180 
2300 REM <<<< LER >>>> 

2310 GOSUB 2900 

2320 FOR A=1 TO 8 : CS ( A ) = " " : NEXT A 
2330 FOR A“0 TO 7 
2340 AA=VPEEK(CH*8+A) 

2350 B=AA AND 128: IF B>0 THEN LOCATE 20 
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, A : PR I NT CHRS (248) :CS( A+l )=CS(A+1 ) -i- M 1 M 
ELSE CS ( A+i ) =CS ( A+l ) + " 0" : LOCATE 20, A: PR 
INT CHRS (246) 

2360 B=AA AND' 64 : 1 F B>0 THEN LOCATE 21, 
A: PR INT CHRS ( 248 ) : CS ( A+l ) =CS ( A+i ) +" 1'*' E 
LSE CS (A+l )=C*(A+i )+"0" :L0CATE(2Í ,A:PRI 
NT CHRS ( 246 ) 

2370 B=AA AND 32: IF U>0 THEN LOCATE 22, 
A: PR INT CHRS ( 248 ) : CS ( A* 1 ) =CS (A+l ) + " 1 " E 
LSE CS (A+l )=*CS( AU ) + "0” iLOCATE 22,A:PRI 
NT CHRS (246) 

2380 B=AA AND 16: IF B>0 THEN LOCATE 23, 
A: PR INT CHRS ( 248 ) s CS ( A+l ) =CS ( A+l ) +" 1 " E 
LSr CS ( A+ 1 ) ™CS ( A+l )+"0" : LOCATE 23,A:PRI 
NT CHRS ( 246 ) 

2390 B=AA AND 8:IF B>0 THEN LOCATE 24, A 
:PRINT CHRS(248) :CS( A+l )=CS( A+l )+"i" EL 
SE CS ( A+l ) =CS ( A+l ) + " 0 " : LOCATE 24,A:PRIN 
T CHRS ( 246 ) 

2400 B=AA AND 4:IF B>0 THEN LOCATE 25, A 
SPRINT CHRS ( 248 ) : CS ( A+l ) =CS ( A+l ) +" 1 " EL 
SE CS ( A+i ) =CS ( A+l ) + "0" : LOCATE 25,A:PRIN 
T CHRS ( 246 ) 

2410 B=AA AND 2:IF B>0 THEN LOCATE 26, A 
SPRINT CHRS ( 248 ) : CS ( A+l ) =CS ( A+l ) + " 1 " EL 
SE CS(A+1 )=CS( A+l )+"0 M sLOCATE 26,A:PRIN 
T CHRS (246) 

2420 B~AA AND lsIF B>0 THEN LOCATE 27 , A 
SPRINT CHRS ( 248 ) : CS ( A l ) «CS ( A+ 1 ) + " 1 " EL 
SE CS ( A+l ) “CS ( A+l ) + "0" : LOCATE 27,A:PRIN 
T CHRS (246) 

2430 LOCATE 18,19:PRINT STRINGS ( 10, " " ) 
sLOCATE 18 , 20 : PRINT STRINGS (10,* " ):LOC 
ATE 18,21 SPRINT STRINGS(10," ") 

2440 NEXT A 
2430 RETURN 

2460 REM <<<< APAGAR >>>> 

2470 FOR A=1 TO 8 s CS ( A ) = ”00000000" 

2480 NEXT A 
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2490 FOR Y-0 TO 7:LÜCA1E 19, Y SPRINT CHR 
* ( 32 ) +STR I NLi* ( S • CHR* ( 246 ) ) :NEXT Y 
2500 RE TIJRN 

2510 REM <«< TELA >>>> 

2520 KEY OFF : A=200 s F OR Y=0 TO 22 
2530 LGCATE 0,Y SPRINT A; M M ; CHR* ( A ) ; " 

" ; A+23 ; " " ; CHR* ( A+23 ) 

2540 A»A+1 í NEXT Y 

2550 VROKE 246*0 , 255 : VPOKE 247*8, 255 :VP 
OKE 248*8,0 

2560 FOR H=1 TO 6 : VPOKE 246*8+0 , 129 : VFQ 
KE 247*8+6,255: VPOKE 248*8+8,126 
2570 NEXT B 

2580 VPOKE 246*8+7, 255: VPOKE 247*8+7,25 

5: VPOKE 248*8+7,0 

2590 A*“STR I NG$ < 8 , CHR$ ( 246 ) ) 

2600 FOR Y-0 TO 7 

2610 LOCA TE 20,Y:PRINT AS 

2620 NEXT Y 

2630 LOCATE 19, 8 SPRINT "Montcr " 

2640 LOCATE 19,9:PRINT "Apagar" 

2650 LOCATE 19, 10: PR INI "Editar" 

2660 LOCATE 19,11:PRINT "Hor . ( Des 1 . ) 
2670 LOCATE 19,12:PRJNI "Carregar" 

2680 LOCATE 19, 13 SPRINT "Refletir" 

2690 LOCATE 19,14:PRINT "Números" 

2700 LOCATE 19, 15: PR INI "Ler" 

2710 LOCATE 19,i6:PRINI "Salvar" 

2720 LOCATE 19, 17 SPRINT "Vert . ( Des 1 . ) " 
2730 LOCATE 19,18:PRINT "Trocar" 

2740 RETURN 

2750 REM <<<< ESCOLHER OPÇÃO >>>> 

2760 LOCATE 1S,20:PRINT "> "+CHR*<29) 

CHR* ( 29 ) +CHR* ( 29 ) ; 

2770 A-USR 1(0): A=ASC ( I NPUT* ( 1 ) ) AND 223 

2780 PR I NT CHR* ( A) ; : YP=0 

2770 FOR 1=6420 TO 6740 STEP 32 

2800 IF A— VPEEK ( 1 ) l HEN YP=( 1-6420)/ 52+ 

i : 1=6740 
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2810 NEXT IsIF YP- 0 THEN 2760 

2820 RETURN 

2830 FOR B“1 Tü 8 

2840 FOR C=1 TO 8 

2850 IF M1D«(C*(B) ,C, 1 )=*"1 M THEN LOCATt 
%( 19+C ) , (B-l) SPRINT CHR*<248) ELSE LOCA 
TE (19+C) , (B-i) :PRINT CHR*(24ò) 

2860 NEXT C 
2870 NEXT B 
2880 RETURN 

2890 REM <<<< ENTRADA DE CARACTERES »> 

> 

2900 LOCATE 18,19:PRINT "Caractere" :CH= 
USR1 10): LOCATE 18,20:PRINT H >" 

2910 LOCATE 19,20:PRINT " H sLOCATE 19 
, 20 : CC=0 

2920 CH=ASC ( 1 NPU I $ ( 1 ) ) : 1 F CH=13 AND CC= 
0 AND YP*i THEN RETURN 

2930 IF ( CH<48 OR CH>57) AND CH<>8 THEN 
2920 

2940 IF CH=8 AND CC=0 THEN 2920 

2950 IF CH=*8 THEN PRINT CHR* ( 127 ) ; s CC^C 

C 1 : GOTO 2920 

2960 PR I N T CHR* ( Cl I ) ; : CC=CC + 1 
2970 IT CC<3 THEN 2920 

2980 CH$~CHR$ ( VPEEK ( 6804 ) ) +CHR* ( VPEEK ( 6 
305 ) ) +CHRT ( VPEEK ( 6806 ) ) : CH-VAL ( CH* ) 

2990 IF CH<200 OR CH>255 THEN 2910 
3000 RETURN 

3010 REM <<<< TROCAR >>>> 

3020 GOSUB 2900 : Ci=CH*8 
3030 GOSUB 2900 : C2=CH*8 
3040 FOR CH-0 TO 7 
3050 C3- VPEEK ( Cl ) : C4=VPEEK ( C2 ) 

3060 SWAP C3,C4 

3070 VPOKE Cl, C3 : VPOKE C2,C4 

3080 C1=C1+ 1 : C2“C2+ 1 : NEXT CH: RETURN 

3090 REM <<<< NUMEROS >>>> 

3100 GOSUB 2900 
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3110 
3120 
3130 
33 40 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 


f-OR Y®0 TO 

LOCATE 19, 20 SPRINT STRINGSÍ5," " ) 

LOCATE 18,20: INPUT CHS 

I P CHS« M " THEN Y-7 : NEXT YsRETURN 

COVAL(CHS) s IF CC >255 I ML N 3130 

VPOKE CH*8+Y,CC 

NEXT YsGOTO 3110 

REM <<<< SALVAR >>>> 

REM Depois de salvos, os caracteres 
REM podem ser incluídos em outros 
REM programas . Par a isso , ac rescen te 
REM as linhas abaixo no começo do 
REM seu programa: 

REM 

REM 10 SCREEN 1, 

REM 20 CLEAR 1000,*<HEFFF 

REM 30 DEFUSE=*4 IF 000 

REM 40 BLOAD "<name>" 

REM 50 A-USR ( 0 ) 

REM 


3310 RESTURE Í480:POR CH=&HF000 ÍO &HF0 


0B 

3320 READ CC:POKE CH,CC:NEXT 
3330 A=USR(0) 

3340 FOR CH=*<HF000 TO &HF00B 
3350 READ CCsPOKE CH,CC:NEXT CH 
3360 LOCATE 20,19:PRINT "<Nome Arq>" 
3370 l OCATI 18,20* INPUT " ” jCHÜ 
3380 IF CHS-"" THEN CHS-"CHR" 

3390 BSAVE CHS , &HF000 , &HF300 
3400 RETURN 

3410 REM <<<< CARREGAR >>>> 

3420 LOCA TL 20, 19: PR INI "<Nome Arq>" 
3430 LOLA I L 18,20:1 NPUT " > " ; CHS 
3440 IF CHS = " " THEN CHS="CHR" 

3450 POKF &HF000,0:hl OAD CHS : I F PEEI (&H 
F000) THEN A=USR(0) 

3460 RETURN 
3470 RESUME NEXT 
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3400 DATA 1,112, 1,17, 12, 240,33, 64, 
.89 ,0.1,112,1, 17,64,6,33,12,240,19 
0 

3490 REN <<<< CRUZ »» 

3300 RESTORE 3540:CH*» HH 
3510 FOR OH=l TO 8:READ CC 
3520 CH*-CH* +CHR* ( CC ) : NEX T CH 
5530 PRITI % ( 0 ) =ri 11 : RF 1 1 IRN 
3540 DATA 24,24,24,255,255,24,24,24 


>0 lTj 
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Gerador de Figuras 



A Sua Paleta Eletrônica 

Aqui está um programa utilitário que o ajudará a dar vazão ao seu talen- 
to artístico. O programa funciona no modo SCREEN 2, que é o modo 
gráfico dc alta resolução, c oferece opções que permitem desenhar figu- 
ras na tela do MSX com toda facilidade. 

O programa começa por mostrar na tela uma caneta simulada. Qual- 
quer movimento da “caneta”, executado com o auxílio do joystick ou 
das teclas de controle do cursor, produz uma linha ua tela. Apertando 
uma vez o botão de tiro ou a barra dc espaço, o símbolo da caneta é subs- 
tituído pelo dc uma borracha. A “borracha” pode ser usada para apagar 
qualquer desenho presente na tela. Quando o botão de tiro e apertado 
uma segunda vez, o símbolo da borracha é substituído por uma cruz. Isto 
indica que o cursor pode ser movimentado sem modificar o desenho. Quan- 
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do o botão dc tiro é apertado uma terceira vez a cruz é substituída pelo 
símbolo da caneta. Assim, para selecionar qualquer um dos (rês modos, 
basta apertar o botão de tiro (ou a barra de espaço) um número apropria- 
do dc vezes. 

Enquanto o programa está no modo de movimento (símbolo em for- 
ma de cruz), várias opçòcs adicionais podem ser usadas. Experimente usar 
a tecla C para desenhar um círculo, P para desenhar um retângulo, L pa- 
ra traçar uma reta e INS para colorir o interior de uma figura. Nos três 
primeiros casos, aperte a tecla HOME para indicar o ponto inicial da re- 
ta, o centro do círculo ou um dos vértices do retângulo; cm seguida, mo- 
vimente o cursor para outra posição, de modo a indicar o ponto final da 
reta, um dos pontos da circunferência do círculo, o vértice oposto do re- 
tângulo ou o ponto final da reta c aperte a tecla C, B ou L, dependendo 
da opção escolhida. Para colorir uma figura, posicione o cursor no inte- 
rior da figura (que deve ser fechada, caso contrário a cor "vazará” para 
o resto da tela) e aperte a tecla INS. 

A qualquer momento é possível mudar a cor da "caneta” usando 
a tecla RETURN. Cada vez que a tecla é apertada, o computador selecio- 
na uma cor diferente, que é indicada pela cor do cursor. 

Para escolher a cor do fundo, aperte SI.CT. 

Para salvar o desenho em fita, aperte GRAPH-S (antes disso você 
deve apertar as teclas PLAY e RECORD do gravador). 

Para carregar um desenho na memória do computador, aperte 
GRAPH-C e depois aperte a tecla PLAY do gravador (o computador car- 
regará a primeira figura que encontrar na fita). 

Para apagar a tela, aperte DEL duas vezes. 

Com um pouco de prática, logo você estará criando belas figuras na 
tela do seu MSX. 

Nota: Só use as opções para salvar c carregar desenhos se você estiver 
trabalhando com fita cassete. 

1000 REM <<<< GERADOR DE FIGURAS - BÜOT 

SY >>>> 

1010 SCREEN 2,2,0: CLEAR 300 , &HD7F 3 : COLO 

R 15,0,0: CLS 

1020 DIM S$(2) :PC=15:BO0:L = 1 : X = 128: Y=9 

6 : RESTÜRE 

1030 GOSUB 1790 

1040 GOTO 1420 

1W50 REM <<<< ENTRADA DE DADOS >>>> 

1060 C~1 

1070 FOR 1=0 TO 2 
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1080 I$«INKEY* : IP=0: 1F I*>"" 7MI N ÍP^AS 
CU*) 

1090 ST«ST1CK( I ) : TG=STR I B(í ) : IF S7 OR I 
G GR IP THEN C=0:í=2 
1100 NEXT I : S-S I DP TG 
1110 RETURN 

1120 REM <<<*< COLOCAR SPRITE NA ÍEI A >> 

>> 

I 130 XS“X— 4 : YC“Y 4 

1140 PU7 SPR I TE 0, <XS,YG) ,PC,0 

1150 RE7URN 

1160 REM <<<< FlJNDü » ■ > 

1170 BC=EC-U ANO 15: COLOR , , DU 
1180 RETURN 

1190 REM <<<< CANETA > »> 

1200 PC=PC+1 ANO 1 5 : COLOR PC 
1210 GOSUB 1130 
1220 RETURN 

1270 REM <.<<< RE I A/C I RCULO/EE7 ANGULO » 

» 

1240 ir CR OR L— 0 ANO X0-X AND Y0=V OR 

L AND IPOil THEN RETURN 

1250 IF L. THEN DEEP: X0=x : Y0~Y:L=0:RETUR 

N 

1260 IF IP=76 OR IP=108 THEN L I NI ( X0, Y 
0 ) - ( X , Y ) , PC 

1270 IF I P=66 OR I P=98 I Hl N L 1 NE (*0,.0 
)-(X,Y),PC,B 

1280 IF IP=67 OR IP=99 THEN CIRCLE (XO. 
Y0) , SQR ( ( ABS( X0-X ) ) ■*'2+ ( ABS ( Y0-Y ) ) 2) , P- 
1290 L-l: RETURN 
1300 REM <<<< COLORIR >>>> 

1310 PAINT ( X , Y ) , PC : RETURN 
1320 REM <<<< APAGAR >>>> 

1330 TC=PC 

1340 PC=0:GOSUB 1130 

1350 GOSUB 1060: IF IP AND IP0127 THEN 
1400 

1360 PC=15: GOSUB 1130 
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1370 GOSUB 1060: IF C THEN 1340 
1300 IF IP0127 THEN 1400 
1390 CLS 

1400 PC=TC: GOSUB 1130:RETURN 
1410 REM <<<< DESENHAR >>>> 

1420 BO 1060slf C THEN 1420 
1430 X = X + ( 1 AND ST>1 AND ST<5 AND X<255 
AND 8T>5 4 AND X/ 0) 

1440 Y~Y+ ( 1 AND ST>3 AND ST<7 AND Y<191 
) (1 AND ( GT> 0 AND ST<3 OR ST>7) AND Y> 
0 ) 

1450 GOSUB 1130 

1460 CR=CRt(l AND TG) AND 3 

14/0 CR=CR-(CR AND CR=3) 

1480 IF TG THEN SPR I TE$ ( 0 ) =S$ ( CR ) 

1490 IF CR=1 THEN PSET ( X , Y ) , PC 
1500 IF CR-2 THEN PRESET(X,Y) 

15.10 IF S THEN 1420 

1520 RIM <<<< COMANDO >>>> 

1530 RESTORE 2010:CN-=0 

1540 READ CC : CN=CN+i : IF CC=0 THEN 1410 
1550 IF CCOIF THEN 1540 
1.560 ON CN ÜÜSUtí 1170,1200,1240,1240,13 
'>0, 1310,1240, 1240,1240,1240, 1240,1240,1 
590.1690 
1370 GOTO 1410 
1530 RI M <<<< SALVAR >>>> 

15‘ 0 RESTORE 2020 : DEFUSR~I<HD7F4 
1600 FOR I -&HD7F4 TO &HD7FF 
1 6 i 0 RE AP H* : POKE I , V AL ( " & h “ » HS ) 

1620 NEXT I 
1630 A -USR < 0 ) 

1640 BSAVE " pic pat " , &HD800 , &HF000 
1650 POKE &HD7FC , &H20 : A-USR ( 0 ) 

1660 BSAVE "piccol " ,&HD800,&HT 000 
1670 RETURN 

1600 REM <<<< CARREGAR >>>> 

1690 RESTORE 2030 : DEFUSR-AHD /F 4 
1 '00 rOR I-&HD7F4 TO &HD7FI 
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171(3 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1F20 
1030 
1840 
.1.850 
1 860 
1070 
1OU0 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1 990 
2000 
2010 
8,99 
2020 
2030 


READ H$:P0KE I , VAL ( "&h" +H* ; 

NEXT I 

BLOAD " picpat " 

A=U£R ( 0 ) 

BLOAD "piccol" 

F'ÜKE &HD7F9 , í<H20 : A— USR ( 0 ) 

RETURN 

REM <<<< DEFINIR SPRITES »>> 

FOR 1=0 TO 2 

S$=" " : FOR J=1 TO 32 

READ H$:S*=S$fCMK'$< VAL ( +H* ) ) 

NEXT J 

G$( I ) =S* 

NEXT I 

SPRITEí (0)<;$( 1 ) :OR=i 

ÜÜSUB 1130 

REFURN 

REM <<<< DADOS >>>> 

DATA 10, 10, 10, fe, 10, 10, 10,0 
DATA 0,0, 0,0, 0,0, 0,0 
DATA 0,0, 0,0, 0,0, 0,0 
DATA 0,0, 0,0, 0,0, 0,0 
DATA 0,0,0, 10, c, 7, 7, 3 
DATA 1,0, 0,0, 0,0, 0,0 
DATA 0, 0,0, 0,0,0, 80*, c0 
DATA f4,fâ,fd,7f ,3e,lc,0,0 
DATA 0,0,0,P,f,7,3,l 
DATA 0,0, 0,0, 0,0, 0,0 
DATA 0 , 0 , 0 , 0 , 0 , 80 , c 0 , f?0 
DATA f 0 , 78 , 3c, lf?,i, 0,0,0 
DATA 24,13,11,12, 127 ,18,66,67,76,9 
108,210,200,0 

DATA 1,0,18, 11,0, dB, 21, 0,0, c3, 59,0 
DATA 1,0,18,11 ,0,0,21 ,0,(J8,c3, 5c ,0 
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Monitor da Memória 



Revelando os Segredos Mais íntimos do Seu Micro 


Este* programa utilitário o ajudará a conhecer melhor a memória do MSX. 
O programa permite observar as rotinas da ROM ou qualquer programa 
que esteja carregado na RAM. O conteúdo da memória pode ser também 
modificado ou salvo em fita. 


Uso dos Comandos 

Observar a Memória. O computador pede os endereços inicial e fi- 
nal, que devem ser fornecidos em hexadecimal. O conteúdo da memória 
c cntào mostrado na tela, em blocos de dez posições. Para passar para 
o bloco seguinte, basta apertar a barra de espaço. 
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Teste da Spma. O computador pede os endereços inicial c final e cal- 
cula a soma dos endereços c dos conteúdos dc todas as memórias especi- 
ficadas. Esta opfcào ê usada para verificar se houve algum erro durante 
a digitação dc um programa cuja listagem inclua o valor desta soma. 

Modificar a Memória. O computador pede os endereços inicial c fi- 
nal e mostra o conteúdo do primeiro endereço. Para mudar o conteúdo 
da memória, basta entrar com um número c apertar RFTURN. Sc o nú- 
mero nào for permitido, o computador indicará este fato e nâo fará ne- 
nhuma modificação. Para deixar o conteúdo da memória como está c 
passar para o endereço seguinte, basta apertar a tecla RETURN. 
Atenção: A modificação da memória deve ser feita com muita cautela, 
pois todo o funcionamento do computador pode ser afetado. 

Salvar cm Fita. O computador pede os endereços inicial e final e o 
nome do arquivo. A operação só é executada quando o usuário aperta 
a tecla RETURN. Antes de escolher esta opçáo, as teclas RECORD e 
PLAY do gravador devem ser apertadas. 

Carregar da Fita. Escolha esta opção e aperte a tecla PLAY do gra- 
vador. O computador carregará o primeiro arquivo que encontrar. 

Para desistir de qualquer opção, aperte CTRI.-D. 

Nota: Só use as opções para salvar e carregar dados da memória se você 
estiver trabalhando com fita cassete. 

1000 REM <<<< MONITOR DA MEMÓRIA - BOÜT 

SY >>>> 

1010 SCREEN 0 : KEY OFF 
1020 GOTO 1180 

1030 Q=0: IP*«INPUT*(1) : IF-ASC( IP*) : IF I 
P>64 THEN IP=IP AND 223 : IPS-CHR* ( IP ) 

1040 IF IP=4 THEN Q=1 
1050 RETURN 
1060 H*-"" 

1070 GÜSUB 1030: IF 0=1 THEN RETURN 
1030 IF IP=8 AND HS>"" THEN HS=LEFT$(H* 
,LEN(H3>)-1 ) :PRINT CHR*(127); 

1090 IF IP=13 THEN RETURN 

1100 IF ( IP<48 OR IP>57) AND (IF<65 OR 

IP;. 70) THEN GOTO 1070 

1110 IF LEN ( ) =4 THEN GOTO 1070 

1120 H*=H*+IP$:PRINT IP*;:GOTÜ 10/0 

1130 PRINT "DE : " ; : GOSUB 1060: IF 0=1 THE 

N RETURN 
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1140 FH=VAL( "«<h"+H*) 

1150 PR I NT TAEM12) " AT s " ; : GOSUB 1060: IF 
U=1 THEN RETURN 
1160 TH=VAL( "l<h"+H*> 

1170 RETURN 

1180 PRINT "Monitor da Memória" :PRINT 
1190 PRINT 

1200 PRINT " (A)juda - este menu" 

1210 PRINT " (O)bservar a memória" 

1220 PRINT " (T)este da soma" 

1230 PRINT " (M)odificar a memória" 

1240 PRINT " ( S ) alvar ein fita" 

1250 PRINT " (O)bservar a memória" 

1260 PRINT SPRINT " <CtrI-D> para desist 

ir" SPRINT SPRINT 

1270 PRINT 

1280 GOSUB 1030 

1290 PRINT CHR*( IP) ; 

1300 RESTORE : K=0 : FOR 1=1 10 6 
1310 READJslF IP=J THEN K=I : 1=6 
1320 NEXT 

1330 IF K=0 THEN PRINT "?":GOTü 1270 

1340 PRINT :0N K GOSUB 1370,1430,1540,16 

70,1540,1360 

1350 GOTO 1270 

1360 GOTO 1200 

1370 GOSUB 1130: IF 0=1 THEN PRINT : RETUR 
N 

1380 PRINT TAB ( 24 ) "SOMA:"; 

i?90 IF TH<FH THEN PRINT "?" s RETURN 

1400 H=0 : FOR I=FH TO TH : H=H+PEEK ( I ) 

1410 H=H MOD 256 : NEXT I 

1420 H*=HEX*(H) :PRINT STR 1 NG$ ( 2-LEN ( Hf ) 

, " 0 " ) +H$ : RETURN 

1430 GOSUB 1130 SPRINT: IF Q=1 THEN RETUR 
N 

1440 IF TH<FH THEN TH=FH+7 
1450 L=0 : FOR I=FH TO TH STEP 8:L=L+1 
1460 H$-HEXf( I ) : PR INI " : " ; STR I NGf í 4-LEN 
( Hf ) , "0" ) ; Hf ; " 
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1470 FOR J=0 TO 7 

1480 H$=HEX$ ( PEEK ( I +J ) ) : PR INI STRINGt ( 2 
-LEN(H$) , "0" ) ;H$; " '• ;:NEXT J 
1490 FOR J^0 TO 7:K=PEEK( I+J ) 

1500 IF K > 3 1 THEN PRINT CHR$(K); ELSE P 
RINT 

1510 NEXT J : PR 1 NT : 1F L=23 THEN 1$=1NPUT 
$ ( 1 ) :L=0: IF ASC(I$)=17 THEN RETURN 
1520 NEXT I 
1530 RETURN 
1540 S$*=IP$ 

1550 INPUT "Nome do arqui vo : " ; 1 % 

1560 IF FS="" THEN RETURN 

15/0 0=0: IF S$="S" THEN GOSUB 1130 

1580 PRINT: IT 0=1 THEN RETURN 

1590 IF TH<=FH AND S$="S" THEN PRINT ": 

?": RETURN 

1600 IF S$="S" THEN PRINT "Aperte PLAY/ 
REC e depois qualquer tecla"; 

1.610 IF S$="C" THEN PF<INT "Aperte PLAY 
e depois qualquer tecla" 

1620 I$=INPUT$(1) : PRINT: IF ASC(I*)=17 T 
HEN RETURN 

1630 ON ERROR GOTO 1660 

1640 IF S$="S" THEN BSAVE F*,FH,TH 

1650 IF S$="C" THEN BLOAD F$ 

1660 RETURN 

1670 GOSUB 1130* PRINT : IF 0=1 THEN RETUR 
N 

1680 IF TH<FH THEN PRINT " :7":RETURN 
1690 FOR I =FH TO TH : H*=HEX* ( I ) 

1700 PRINT " : " ;STRING*(4-LEN(H$ ) , "0" ) ;H 
; :H*=HEX*(PEEK( I ) ) 

1710 PRINT STR I NG$ ( 2— LEN ( H$ ) , "0" ) ; H$ ; " 

• 

9 

1720 H$= " " 

1730 GOSUB 1030 : IF 0=1 THEN I=TH:NEX1:P 
RINT: RETURN 

1740 IF IP=8 AND H*>"" THEN H$=LEFT$(H$ 
,LEN(H*)-1) : PRINT CHR*(127); 
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1750 IF IF-13 THEN PRINT IP*:IF H*>"" T 
HEN POKE I , VAL( *'&h"+H$) :NEXT :RETURN ELS 
E NEXT : RETURN 

1760 IF LEN ( H * ) ~2 THEN GOTO 1730 
1770 IF <IP<48 OR I P>57 ) AND < IP<65 OR 
IP>70) THEN GOTO 1730 
1780 H$=H*+IP*:PRINT IP*::GOTO 1730 
1790 DATA 84,79,83,77,67,65 



Observações Finais 

Quando nos dispusemos a escrever este livro, fizemos questão de incluir 
apenas jogos que fossem realmcnte interessantes. Isto naturalmente le- 
vou a programas compridos, em que a probabilidade de cometer erros 
de digitação é relativamente elevada c esses erros, quando ocorrem, não 
sào fáceis de localizar. Os parágrafos seguintes foram escritos com o ob- 
jetivo de ajudá-lo caso um dos programas, depois de carregado, nào fun- 
cione ou funcione de forma inesperada. 


CoomIKos Gerais 

1. Peça a um amigo para verificar a listagem com vocc. Leia a listagem 
do livro em voz alta c compare-a com a que aparece na tela do computador. 

2. Náo se esqueça de que, no formato SCREEN 0. deve haver uma cor- 
respondência direta entre as listagens, linha por linha. 

3. Cuidado para nào confundir a letra I com o algarismo I. 

4. Cuidado para nào trocar as letras maiusculas por minúsculas c vi- 
ce-versa. 

5. Cuidado para não trocar ponto-e-vírgula por dois pontos e vice-versa. 

6. Verifique se o número de espaços está correto, usando as linhas vizi- 
nhas como referência para contar os espaços. 

7. Verifique novamente os números das linhas. Não confunda a conti- 
nuação de uma linha com uma linha nova. 

8. Verifique de novo as linhas de dados. É muito fácil pular um número 
em uma linha de dados. Para ter certeza de que isto nào ocorreu, conte 
o número de vírgulas c compare-o com o da listagem. 

9. Verifique se não se esqueceu de digitar nenhum sinal de aspas. 

10. Será que existe mesmo um erro no programa? I ornc a ler as instru- 
ções do jogo. Muitas vezes, depois que você entra com um dado pelo te- 
clado, o programa nào faz nada até a tecla RK1LRN ser apeitada. 
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Outras Observações 

1 . Os três programas de jogos de dados ( Corrida de Dados, Olhos de Co- 
bra c Craps) só funcionam corrctamcntc quando estão simultaneamente 
presentes na memória do computador. For essa razão, è aconselhável salvá- 
los em fita como se fossem um único programa. 

2. Alguns programas param de funcionar quando você entra com um dado 
diferente do previsto, como uma letra em lugar de um número. Seria pos- 
sível prever todas as respostas “tolas” c colocar mensagens apropriadas 
no programa, mas isso aumentaria consideravelmente o tamanho das lis- 
tagens. Ao escrevermos os jogos, partimos do principio dc que o usuário 
não estaria a fim de “derrubar” o programa! Assim sendo, se ocorre um 
erro logo após você entrar com um dado, leia de novo as instruções do 
jogo para ver se você não está entrando com um dado inapropriado. 

3. Todos os programas, com exceção de Senha , funcionam igualmente 
hem cm receptores coloridos ou prelo-e-branco. Para jogar Senha em re- 
ceptores preto-e-branco. entre com S quando o computador perguntar: 
“CORF.S OU SÍMBOLOS (C/S) ?”. Nesse caso, as cores do jogo serão 
substituídas por símbolos. 

4. Antes de carregar um programa novo no computador, desligue-o e tome 
a ligá-lo. Com isso. evitará que ocorra um erro se o programa anterior 
tiver modificado o conteúdo de alguma memória da parle dc controle do 
computador. 


Como Localizar Erros 

Sc o programa continua apresentando erro mesmo depois de você seguir 
as diretrizes acima, o jeito ê arregaçar as mangas c partir para uma busca 
mais direta. Eis alguns conselhos úteis: 

1 . Se uma mensagem de erro indica que o erro ocorreu em uma determi- 
nada linha mas a linha corresponde exatamente à listagem original, o en- 
gano pode estar na linha em que é calculado o valor de uma das variáveis 
usadas na linha em que o erro ocorre. Verifique todas essas linhas. 

2. Se a mensagem de erro for mais especifica, como “ÍNDICE FORA 
DO LIMITE” (índice de uma matriz maior que o permitido) ou “FUN- 
ÇÃO ILEGAL” (parâmetro incorreto de uma função), procure localizar 
a variável responsável pelo erro. Em caso de dúvida, use comandos dire- 
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los, como “PR1NT A”, “PR1NT B” eic., paia ver na leia qual era o 
valor das variáveis suspeitas no momento cm que ocorreu o erro. 

3. Acompanhe o fluxo lógico das instruções do programa. O comando 
“TRON” mostra a ordem cm que as instruções são executadas, revelan- 
do assim qualquer erro de endereçamento em instruções como “GOTO”, 
“GOSUB” etc. 

4. Trabalhe de forma metódica. Examine separadamente cada parte do 
programa. Interrompa a execução quantas vezes for necessário, incluin- 
do instruções “STOP” em pontos estratégicos do programa. Aproveite 
para observar os valores intermediários das variáveis, usando o comando 
“PRINT” na forma direta. 

5. Suprima temporariamente algumas linhas do programa acrescentan- 
do “REM” no inicio da linha. Verifique de que forma a execução é afe- 
tada. 

6. Torne a digitar as linhas suspeitas! Em alguns casos, £ linha aparece 
corretamente na tela, mas foi guardada de forma truncada na memória 
do computador. 

7. Use as instruções “ERROR” e “ON ERROR GOTO”, da forma des- 
crita no manual do computador. 

8. Vá para a cama. Depois de uma boa noite de sono, será bem mais fá- 
cil locali/ar o erro! 
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Apêndlc* 1: QréfloM pera 


.SfxttM a Caraotaraa 



Use uma cópia Xerox desta pagina para nio sujar o livro. 
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SCREEN 0 - Texto - 40 x 24 caractere» 

SCREEN 1 - Texto - 32 x 24 caracteres 

SCREEN 2 • Gráficos de Alta Resolução - 256 x 192 pontos 

SCREEN 3 - Gráficos de Baixa Resolução 64 x 48 pontos 


Use uma cópia Xerox desta página pura náo sujar o livro. 
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Apêndice 3: Mapa da Memória do MSX 


c/> 

< 

2 o 
81 
* 5 ? 

§2 

< 

OI 


ÁREA DE TRABALHO 
DO BASIC 


CONTROLE DE E/S 


ARMAZENAMENTO 
DE STRINGS 
IN1CIALMLNTL 2ÍX) 
USE CLEAR PARA 
MUDAR 


PILHA 


& Hl 380 


ÁREA LIVRE 


ARMAZENAMENTO 
DE MATRIZES 


ARMAZENAMENTO 
DE VARIAVFIS 


TEXTO DL PROGRAMAS 
EM BASIC 


BASIC MSX (32K) 


|& HFFF 


& H8000 


& H0000 
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Apàndice 4: Tabela de Cores do MSX 



CORES 


CORES 

0 

Transparente 

8 

Vermelho 

1 

Prelo 

9 

Vermelho claro 

2 

Verde 

10 

Amarelo 

3 

Verde claro 

11 

Amarelo claro 

4 

Azul escuro 

12 

Verde escuro 

5 

Azul claro 

13 

Roxo 

6 

Vermelho escuro 

14 

Cinza 

7 

A/ul celeste 

13 

Branco 



GRAPHOG 


Aqui está uma coleção de (090» interessantes e divertidos para os computa- 
dores da família MSX. Há programas para todos os gostos: jogos de aventura, 
como 0 Marie Celeste, baseado na lenda do navio fantasma; jogos clássicos, 
como Stor Trek e Super Breakout; jogos de estratégia, como damas e xadrei; 
jogos de dados, como Craps; jogos de raciocínio, jogos de fliperama e jogos 
educativos. O livro inclui também uma série de programas utilitários que aju- 
darão 0 leitor a criar desenhos originais na tela e a desenvolver seus próprios 
programas, além de um mapa da memória e gráficos das coordenadas de tela 
e para a geração de caracteres. Esta obra se destino a todos os usuários do 
MSX ( desde os principiantes até programadores experientes. 

Todos os jogos foram escritos na linguagem BASIC e cuidadosamente tes- 

todos. 

O Auior 

JimGregary è Diretor -Gerente do M r. Micro, umo doí mmorflí. software houses da Irvglalerra, espe- 
euoliüod* «m jogo* para micraca-mpuiodoreã. Já escrçvev vários ariigos paro as revistas Persanol 
Computer World, Leiíure and Electronics Troder e Computer and Video Gomeí- 


PROGRAMAS DE JOGOS SUPERINTERESSANTES 
PARA O SEU MICROCOMPUTADOR! 

PROGRAMAS 
DE JOGOS DE TERROR 

Jenny Tyler e Chris Oxlade 


PROGRAMAS 
DE JOGOS Dl GUERRA 

Daniel Isaaman e Jenny Tyler 


PROGRAMAS 

DE JOGOS DE ESPIONAGEM 

Jenny Tyler e Chris Qxlade 


PROGRAMAS 
DE JOGOS ESPACIAIS 

Jenny Tyler 


PROGRAMAS 
DE JOGOS DE HORROR 

Jenny Tyler 


ISBN 


